Sub runtest()
Dim i
i = 1
Dim a, b
a = 1
b = 1
For i = 1 To 350
If i Mod 2 = 0 Then
Tabelle2.Cells(a, 1) = Tabelle1.Cells(i, 1)
Tabelle2.Cells(a, 2) = Tabelle1.Cells(i, 2)
Tabelle2.Cells(a, 3) = Tabelle1.Cells(i, 3)
Tabelle2.Cells(a, 4) = Tabelle1.Cells(i, 4)
a = a + 1
Else
Tabelle3.Cells(b, 1) = Tabelle1.Cells(i, 1)
Tabelle3.Cells(b, 2) = Tabelle1.Cells(i, 2)
Tabelle3.Cells(b, 3) = Tabelle1.Cells(i, 3)
Tabelle3.Cells(b, 4) = Tabelle1.Cells(i, 4)
b = b + 1
End If
Next
End Sub
Split table
最新推荐文章于 2023-04-09 11:15:38 发布