For i = 2 To 7 For j = 2 To 7 For k = 2 To 7 For l = 2 To 7 lrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheet2.Cells(lrow, 1).Value = Sheet1.Cells(i, 1).Value & " " & Sheet1.Cells(j, 2).Value & " " & Sheet1.Cells(k, 3).Value & " " & Sheet1.Cells(l, 4).Value Next Next Next Next
Quote:I suspect that it may be for an earlier version of Excel.
lrow
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)