Sub Macro1()
For i = 3 To 7
last = Sheet1.Range("A2").End(xlToRight).Column
If Cells(i, last) <> "" Then
q = last - 1
Else
q = Sheet1.Cells(i, last).End(xlToLeft).Column - 1
End If
w = q / 4
Sheet1.Range(Cells(i, q - 2), Cells(i, q + 1)).Copy
Sheet2.Cells(i, 2).PasteSpecial Paste:=xlPasteValues
Sheet2.Cells(i, 6) = w
Next i
End Sub
Sub Macro1()
Dim z(3) As Variant
For i = 3 To 7
last = Sheet1.Range("A2").End(xlToRight).Column
If Cells(i, last) <> "" Then
q = last - 1
Else
q = Sheet1.Cells(i, last).End(xlToLeft).Column - 1
End If
w = q / 4
For j = 0 To 3
z(j) = Cells(i, q - 2 + j)
Sheet2.Cells(i, j + 2) = z(j)
Next
Sheet2.Cells(i, 6) = w
Next i
End Sub
کامنت