I have noticed it too. Each of the 9 rows, columns and 3×3 blocks should be filled in such a way that they have all the numbers from 1 to 9. Here is a small holiday card from Chandoo.org HQ. Open a new workbook. While opening the Sudoku application, Excel will ask you whether to enable or disable the macros. A must-have for all Su Doku lovers. Mega Sudoku Generator Excel Free Downloads - 2000 Shareware periodically updates software information and pricing of Mega Sudoku Generator Excel from the publisher, so some information may be slightly out-of-date. In this getting started guide, learn what is Power BI, how to get it and how to create your first report from scratch. 1: January 30, 2015 June 18, 2013 by Sumit Jain. press one key and the answer comes up. Tonight, I was thinking about, how to make a sudoku solver, using excel and visual basic. Dear Arnold, Sudoku is a very effective way to keep your brain cells ticking. After a few interactions with Excel, I moved to Visual Basic using VS2005. Now I have replaced the file with an Excel 2003 compatible version. Share Twitter LinkedIn Facebook Email Print Today’s author, Charlie Ellis, continues discussing the spreadsheet he built to solve Sudoku puzzles. Check out the list now. @cdascgil: Thank you. A while back, a fellow PM on the Excel team, Dan Cory, wrote a spreadsheet for solving Sudoku puzzles using Excel formulas and made it available on Office Online . VBA-Excel: Add Worksheets For All The Given Dates Except Weekends and Copy The Common Template In Each Worksheet. excel-vba documentation: Ways to refer to a single cell. Each of the 9 rows, columns and 3×3 blocks should be filled in such a way that they have all the numbers from 1 to 9. Sudoku Generator And Solver Desktop Liberation by ramblings.mcpher.com. I wrote an Excel/VBA Sudoku Puzzle Teacher /Puzzle Solver program in Excel/VBA with about 3000 lines of VBA code :  Sudoku Teacher Sudoku Helper. Sudoku is a 9x9 grid. http://www.cijoint.fr/cjlink.php?file=cj200910/cij9dWRCr1.xls, - I don't create any of the original model grids, nor the soluce proc This one does not use Excel, but can be usefull as well. The vast majority of them can be solve in less than 3 seconds and for programs or people interested to learn VBA, it can be useful. He is kind enough to let me share this with all of you. This solver is the most downloaded among Sudoku solvers made in Excel-VBA. On behalf of my family, our staff, volunteers & well-wishers, Let me wish you a very happy Christmas & prosperous new year 2021. (It has folders _rels; docProps; & xl). And if you are interested in writing your own sudoku solver, here is a basic algorithm: Simple, fun and useful emails, once per week. If Excel does not ask you whether to enable macros and automatically disables it on opening the file, it means your macro security setting is set on "High". You should confirm all information before relying on it. The kids school had a cultural festival a month ago and we got this beautiful picture at a photo booth. - But also rotations in groups. But the macro stops after 10 iterations. excel sudoku solver code Sudoku solver - Excel VBA Macro. it is possible to generate and print indefinitely differents grids for pleasure always renewed ... That's what I have done : The solution generates completely random puzzles with three levels of difficulty. Assuming knowing the rules to form a given Sudoku and fully completed, VBA-Excel: Change Font, Color, Weight of Table Data in the Word document, VBA-Excel: Modified Consolidator – Merge or Combine Multiple Excel Files Into One Where Columns Are Not In Order. Step 1: Go to the FILE tab. Step 3: At the bottom chooses “Excel Add-Ins” and click on “Go”. Still on fence about Power BI? It's all here. Notify me of when new comments are posted via e-mail. @David: try now, I have uploaded the Excel 2007 version originally. gentle to tough (categorized … My aim is to make you awesome in Excel & Power BI. There is a nice little book "Programming Sudoku" by Wei-Meng Lee that discusses how to write a Sudoku solver in VB.Net. Download Link : SUDOKU Solver. @Struzak: Thank you. 10. During a hot summer I used to spend my time solving Sudoku puzzles at the beach - which is quite fun if you are in a must-not-work mode. Your goal is to fill in the remaining numbers. I can't see a workbook in the zip file so can't even look at it! I wanted to provide both a source and demo - as there aren't too many fully featured solvers I could find in Visual Basic to learn from. Tutorial mode … VBA-Excel: Appending Text to Existing Word Document – at Beginning, VBA-Excel: Appending Text to an Existing Word Document – at the End, Excel-VBA : Range - Lock/Unlock Specific Cells, VBA-Excel: Create and Save the Word document, VBA-Excel: Get the names of all WorkSheets in a Excel (WorkBook), VBA-Excel: Read XML by Looping through Nodes. Note: This Code works only for easy and medium level SUDOKU problems. Here is an Excel puzzle for the popular number puzzle, Sudoku. Excel spreadsheet that solves Sudoku puzzles. Enter your email address to subscribe to this blog and receive notifications of new posts by email. Note: This Code works only for easy and medium level SUDOKU problems . After Creating the SUDOKU template you page should look like this: NOTE: Make sure you create the template in correct cells else you will have to change the code, To know how to add a button Click here (Assign-a-macro-to-a-button), Press Alt+F11 and Copy paste the code below, Dim mainWorkBook As Workbook Dim arrMatrix(1 To 9, 1 To 3, 1 To 3) Dim arrOptions(9) Dim arrAlreadyUpdated() Dim blnHaveSomethingToFill, Sub Sumit() Set mainWorkBook = ActiveWorkbook Call FnGetValues, blnHaveSomethingToFill = False For i = 1 To 9 StrA = "" ‘intAUCounter = 0 ‘ReDim Preserve arrAlreadyUpdated(0) For j = 1 To 3 For k = 1 To 3 ‘MsgBox i & " " & j & " " & arrMatrix(i, j) If arrMatrix(i, j, k) = "" Then, Call FnFillOptionsArray Call FnCalculate(i, j, k) intCounterO = 0 ‘StrA = "" For p = 0 To 8 StrA = StrA & " " & arrOptions(p) If arrOptions(p) = 0 Then intCounterO = intCounterO + 1 End If Next If i = 4 Then ‘MsgBox i & j & k & " " & StrA End If, ‘intAUCounter = intAUCounter + 1 ‘ReDim Preserve arrAlreadyUpdated(intAUCounter) ‘arrAlreadyUpdated(intAUCounter – 1) = i & " " & j & " " & k ‘MsgBox arrAlreadyUpdated(intAUCounter – 1) & " Entered", If intCounterO = 8 Then ‘intAUCounter = 0 For p = 0 To 8 If arrOptions(p) <> 0 Then arrMatrix(i, j, k) = arrOptions(p) ‘MsgBox "have" blnHaveSomethingToFill = True End If Next End If End If Next Next If blnHaveSomethingToFill = False Then For a = 1 To 9 StrA = Replace(StrA, " ", "") strTemp = StrA If Len(strTemp) – Len(Replace(strTemp, CStr(a), "")) = 1 Then ‘ MsgBox StrA intLocation = InStr(1, StrA, CStr(a), 1) ‘ MsgBox intLocation intCell = 0 If Int(intLocation / 9) <> (intLocation / 9) Then intCell = Int(intLocation / 9) + 1 Else intCell = Int(intLocation / 9) End If ‘ MsgBox intCell & " Location" ‘arrTemp = Split(arrAlreadyUpdated(intCell – 1), " ") ‘intI = CInt(arrTemp(0)) ‘intJ = CInt(arrTemp(1)) ‘intK = CInt(arrTemp(2)) ‘ MsgBox intI & intJ & intK intC = 0 blnFound = False For j = 1 To 3 For k = 1 To 3 ‘MsgBox i & " " & j & " " & arrMatrix(i, j) If arrMatrix(i, j, k) = "" Then ”MsgBox "411" & arrMatrix(4, 1, 1) intC = intC + 1 ‘MsgBox "intC" & intC ‘MsgBox i & j & k If intC = intCell Then arrMatrix(i, j, k) = a ‘Call FnFillValues ‘ MsgBox i & j & k & "Matched" & " " & a blnFound = True Exit For End If End If Next If blnFound Then Exit For End If Next Exit For StrA = "" strTemp = "" End If Next, arrOptions(0) = 1 arrOptions(1) = 2 arrOptions(2) = 3 arrOptions(3) = 4 arrOptions(4) = 5 arrOptions(5) = 6 arrOptions(6) = 7 arrOptions(7) = 8 arrOptions(8) = 9, For j = 1 To 3 For k = 1 To 3 If arrMatrix(a, j, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(a, j, k) Then arrOptions(m) = 0 End If Next End If Next Next, If a = 1 Then For j = 1 To 3 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 1 To 7 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 2 Then For j = 1 To 3 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 2 To 8 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 3 Then For j = 1 To 3 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 3 To 9 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 4 Then For j = 4 To 6 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 1 To 7 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 5 Then For j = 4 To 6 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 2 To 8 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 6 Then For j = 4 To 6 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 3 To 9 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 7 Then For j = 7 To 9 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 1 To 7 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 8 Then For j = 7 To 9 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 2 To 8 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, If a = 9 Then For j = 7 To 9 For k = 1 To 3 If arrMatrix(j, k, c) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, k, c) Then arrOptions(m) = 0 End If Next End If Next Next For j = 3 To 9 Step 3 For k = 1 To 3 If arrMatrix(j, b, k) <> "" Then For m = 0 To 8 If arrOptions(m) = arrMatrix(j, b, k) Then arrOptions(m) = 0 End If Next End If Next Next End If, Function FnGetValues() ‘intChar = 69 ‘j = 1 ‘Set mainWorkBook = ActiveWorkbook ‘For k = 1 To 9 ‘ For m = 69 To 77 ‘ For k = 1 To 3 ‘ For i = 1 To 3 ‘ arrMatrix(k, i, j) = mainWorkBook.Sheets("Sheet1").Range(Chr(m) & i + 4).Value ‘ Next ‘ j = j + 1 ‘ Next ‘Next ‘Next, arrMatrix(1, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("E5").Value arrMatrix(1, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("E6").Value arrMatrix(1, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("E7").Value arrMatrix(2, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("E8").Value arrMatrix(2, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("E9").Value arrMatrix(2, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("E10").Value arrMatrix(3, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("E11").Value arrMatrix(3, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("E12").Value arrMatrix(3, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("E13").Value, arrMatrix(1, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("F5").Value arrMatrix(1, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("F6").Value arrMatrix(1, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("F7").Value arrMatrix(2, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("F8").Value arrMatrix(2, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("F9").Value arrMatrix(2, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("F10").Value arrMatrix(3, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("F11").Value arrMatrix(3, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("F12").Value arrMatrix(3, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("F13").Value, arrMatrix(1, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("G5").Value arrMatrix(1, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("G6").Value arrMatrix(1, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("G7").Value arrMatrix(2, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("G8").Value arrMatrix(2, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("G9").Value arrMatrix(2, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("G10").Value arrMatrix(3, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("G11").Value arrMatrix(3, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("G12").Value arrMatrix(3, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("G13").Value, arrMatrix(4, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("H5").Value arrMatrix(4, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("H6").Value arrMatrix(4, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("H7").Value arrMatrix(5, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("H8").Value arrMatrix(5, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("H9").Value arrMatrix(5, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("H10").Value arrMatrix(6, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("H11").Value arrMatrix(6, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("H12").Value arrMatrix(6, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("H13").Value, arrMatrix(4, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("I5").Value arrMatrix(4, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("I6").Value arrMatrix(4, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("I7").Value arrMatrix(5, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("I8").Value arrMatrix(5, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("I9").Value arrMatrix(5, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("I10").Value arrMatrix(6, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("I11").Value arrMatrix(6, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("I12").Value arrMatrix(6, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("I13").Value, arrMatrix(4, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("J5").Value arrMatrix(4, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("J6").Value arrMatrix(4, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("J7").Value arrMatrix(5, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("J8").Value arrMatrix(5, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("J9").Value arrMatrix(5, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("J10").Value arrMatrix(6, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("J11").Value arrMatrix(6, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("J12").Value arrMatrix(6, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("J13").Value, arrMatrix(7, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("K5").Value arrMatrix(7, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("K6").Value arrMatrix(7, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("K7").Value arrMatrix(8, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("K8").Value arrMatrix(8, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("K9").Value arrMatrix(8, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("K10").Value arrMatrix(9, 1, 1) = mainWorkBook.Sheets("Sheet1").Range("K11").Value arrMatrix(9, 2, 1) = mainWorkBook.Sheets("Sheet1").Range("K12").Value arrMatrix(9, 3, 1) = mainWorkBook.Sheets("Sheet1").Range("K13").Value, arrMatrix(7, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("L5").Value arrMatrix(7, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("L6").Value arrMatrix(7, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("L7").Value arrMatrix(8, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("L8").Value arrMatrix(8, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("L9").Value arrMatrix(8, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("L10").Value arrMatrix(9, 1, 2) = mainWorkBook.Sheets("Sheet1").Range("L11").Value arrMatrix(9, 2, 2) = mainWorkBook.Sheets("Sheet1").Range("L12").Value arrMatrix(9, 3, 2) = mainWorkBook.Sheets("Sheet1").Range("L13").Value, arrMatrix(7, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("M5").Value arrMatrix(7, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("M6").Value arrMatrix(7, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("M7").Value arrMatrix(8, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("M8").Value arrMatrix(8, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("M9").Value arrMatrix(8, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("M10").Value arrMatrix(9, 1, 3) = mainWorkBook.Sheets("Sheet1").Range("M11").Value arrMatrix(9, 2, 3) = mainWorkBook.Sheets("Sheet1").Range("M12").Value arrMatrix(9, 3, 3) = mainWorkBook.Sheets("Sheet1").Range("M13").Value, Function FnFillValues() ‘intChar = 69 ‘j = 1 ‘Set mainWorkBook = ActiveWorkbook ‘For k = 1 To 9 ‘ For m = 69 To 77 ‘ For k = 1 To 3 ‘ For i = 1 To 3 ‘ arrMatrix(k, i, j) = mainWorkBook.Sheets("Sheet1").Range(Chr(m) & i + 4).Value ‘ Next ‘ j = j + 1 ‘ Next ‘Next ‘Next, mainWorkBook.Sheets("Sheet1").Range("E5").Value = arrMatrix(1, 1, 1) mainWorkBook.Sheets("Sheet1").Range("E6").Value = arrMatrix(1, 2, 1) mainWorkBook.Sheets("Sheet1").Range("E7").Value = arrMatrix(1, 3, 1) mainWorkBook.Sheets("Sheet1").Range("E8").Value = arrMatrix(2, 1, 1) mainWorkBook.Sheets("Sheet1").Range("E9").Value = arrMatrix(2, 2, 1) mainWorkBook.Sheets("Sheet1").Range("E10").Value = arrMatrix(2, 3, 1) mainWorkBook.Sheets("Sheet1").Range("E11").Value = arrMatrix(3, 1, 1) mainWorkBook.Sheets("Sheet1").Range("E12").Value = arrMatrix(3, 2, 1) mainWorkBook.Sheets("Sheet1").Range("E13").Value = arrMatrix(3, 3, 1), mainWorkBook.Sheets("Sheet1").Range("F5").Value = arrMatrix(1, 1, 2) mainWorkBook.Sheets("Sheet1").Range("F6").Value = arrMatrix(1, 2, 2) mainWorkBook.Sheets("Sheet1").Range("F7").Value = arrMatrix(1, 3, 2) mainWorkBook.Sheets("Sheet1").Range("F8").Value = arrMatrix(2, 1, 2) mainWorkBook.Sheets("Sheet1").Range("F9").Value = arrMatrix(2, 2, 2) mainWorkBook.Sheets("Sheet1").Range("F10").Value = arrMatrix(2, 3, 2) mainWorkBook.Sheets("Sheet1").Range("F11").Value = arrMatrix(3, 1, 2) mainWorkBook.Sheets("Sheet1").Range("F12").Value = arrMatrix(3, 2, 2) mainWorkBook.Sheets("Sheet1").Range("F13").Value = arrMatrix(3, 3, 2), mainWorkBook.Sheets("Sheet1").Range("G5").Value = arrMatrix(1, 1, 3) mainWorkBook.Sheets("Sheet1").Range("G6").Value = arrMatrix(1, 2, 3) mainWorkBook.Sheets("Sheet1").Range("G7").Value = arrMatrix(1, 3, 3) mainWorkBook.Sheets("Sheet1").Range("G8").Value = arrMatrix(2, 1, 3) mainWorkBook.Sheets("Sheet1").Range("G9").Value = arrMatrix(2, 2, 3) mainWorkBook.Sheets("Sheet1").Range("G10").Value = arrMatrix(2, 3, 3) mainWorkBook.Sheets("Sheet1").Range("G11").Value = arrMatrix(3, 1, 3) mainWorkBook.Sheets("Sheet1").Range("G12").Value = arrMatrix(3, 2, 3) mainWorkBook.Sheets("Sheet1").Range("G13").Value = arrMatrix(3, 3, 3), mainWorkBook.Sheets("Sheet1").Range("H5").Value = arrMatrix(4, 1, 1) mainWorkBook.Sheets("Sheet1").Range("H6").Value = arrMatrix(4, 2, 1) mainWorkBook.Sheets("Sheet1").Range("H7").Value = arrMatrix(4, 3, 1) mainWorkBook.Sheets("Sheet1").Range("H8").Value = arrMatrix(5, 1, 1) mainWorkBook.Sheets("Sheet1").Range("H9").Value = arrMatrix(5, 2, 1) mainWorkBook.Sheets("Sheet1").Range("H10").Value = arrMatrix(5, 3, 1) mainWorkBook.Sheets("Sheet1").Range("H11").Value = arrMatrix(6, 1, 1) mainWorkBook.Sheets("Sheet1").Range("H12").Value = arrMatrix(6, 2, 1) mainWorkBook.Sheets("Sheet1").Range("H13").Value = arrMatrix(6, 3, 1), mainWorkBook.Sheets("Sheet1").Range("I5").Value = arrMatrix(4, 1, 2) mainWorkBook.Sheets("Sheet1").Range("I6").Value = arrMatrix(4, 2, 2) mainWorkBook.Sheets("Sheet1").Range("I7").Value = arrMatrix(4, 3, 2) mainWorkBook.Sheets("Sheet1").Range("I8").Value = arrMatrix(5, 1, 2) mainWorkBook.Sheets("Sheet1").Range("I9").Value = arrMatrix(5, 2, 2) mainWorkBook.Sheets("Sheet1").Range("I10").Value = arrMatrix(5, 3, 2) mainWorkBook.Sheets("Sheet1").Range("I11").Value = arrMatrix(6, 1, 2) mainWorkBook.Sheets("Sheet1").Range("I12").Value = arrMatrix(6, 2, 2) mainWorkBook.Sheets("Sheet1").Range("I13").Value = arrMatrix(6, 3, 2), mainWorkBook.Sheets("Sheet1").Range("J5").Value = arrMatrix(4, 1, 3) mainWorkBook.Sheets("Sheet1").Range("J6").Value = arrMatrix(4, 2, 3) mainWorkBook.Sheets("Sheet1").Range("J7").Value = arrMatrix(4, 3, 3) mainWorkBook.Sheets("Sheet1").Range("J8").Value = arrMatrix(5, 1, 3) mainWorkBook.Sheets("Sheet1").Range("J9").Value = arrMatrix(5, 2, 3) mainWorkBook.Sheets("Sheet1").Range("J10").Value = arrMatrix(5, 3, 3) mainWorkBook.Sheets("Sheet1").Range("J11").Value = arrMatrix(6, 1, 3) mainWorkBook.Sheets("Sheet1").Range("J12").Value = arrMatrix(6, 2, 3) mainWorkBook.Sheets("Sheet1").Range("J13").Value = arrMatrix(6, 3, 3), mainWorkBook.Sheets("Sheet1").Range("K5").Value = arrMatrix(7, 1, 1) mainWorkBook.Sheets("Sheet1").Range("K6").Value = arrMatrix(7, 2, 1) mainWorkBook.Sheets("Sheet1").Range("K7").Value = arrMatrix(7, 3, 1) mainWorkBook.Sheets("Sheet1").Range("K8").Value = arrMatrix(8, 1, 1) mainWorkBook.Sheets("Sheet1").Range("K9").Value = arrMatrix(8, 2, 1) mainWorkBook.Sheets("Sheet1").Range("K10").Value = arrMatrix(8, 3, 1) mainWorkBook.Sheets("Sheet1").Range("K11").Value = arrMatrix(9, 1, 1) mainWorkBook.Sheets("Sheet1").Range("K12").Value = arrMatrix(9, 2, 1) mainWorkBook.Sheets("Sheet1").Range("K13").Value = arrMatrix(9, 3, 1), mainWorkBook.Sheets("Sheet1").Range("L5").Value = arrMatrix(7, 1, 2) mainWorkBook.Sheets("Sheet1").Range("L6").Value = arrMatrix(7, 2, 2) mainWorkBook.Sheets("Sheet1").Range("L7").Value = arrMatrix(7, 3, 2) mainWorkBook.Sheets("Sheet1").Range("L8").Value = arrMatrix(8, 1, 2) mainWorkBook.Sheets("Sheet1").Range("L9").Value = arrMatrix(8, 2, 2) mainWorkBook.Sheets("Sheet1").Range("L10").Value = arrMatrix(8, 3, 2) mainWorkBook.Sheets("Sheet1").Range("L11").Value = arrMatrix(9, 1, 2) mainWorkBook.Sheets("Sheet1").Range("L12").Value = arrMatrix(9, 2, 2) mainWorkBook.Sheets("Sheet1").Range("L13").Value = arrMatrix(9, 3, 2), mainWorkBook.Sheets("Sheet1").Range("M5").Value = arrMatrix(7, 1, 3) mainWorkBook.Sheets("Sheet1").Range("M6").Value = arrMatrix(7, 2, 3) mainWorkBook.Sheets("Sheet1").Range("M7").Value = arrMatrix(7, 3, 3) mainWorkBook.Sheets("Sheet1").Range("M8").Value = arrMatrix(8, 1, 3) mainWorkBook.Sheets("Sheet1").Range("M9").Value = arrMatrix(8, 2, 3) mainWorkBook.Sheets("Sheet1").Range("M10").Value = arrMatrix(8, 3, 3) mainWorkBook.Sheets("Sheet1").Range("M11").Value = arrMatrix(9, 1, 3) mainWorkBook.Sheets("Sheet1").Range("M12").Value = arrMatrix(9, 2, 3) mainWorkBook.Sheets("Sheet1").Range("M13").Value = arrMatrix(9, 3, 3).