- Sub aaa()
- Dim arr(1 To 4, 1 To 11), i&, j&
- For i = 8 To 11
- If Cells(i, 1) = "" Then Exit For
- arr(i - 7, 1) = Format([f6], "yyyy/m/d")
- arr(i - 7, 2) = Mid([f5], 4)
- arr(i - 7, 3) = Mid([a6], 6)
- For j = 1 To 6
- arr(i - 7, j + 3) = Cells(i, j)
- Next j
- arr(i - 7, 10) = Mid([a13], 7)
- arr(i - 7, 11) = Cells(i, 7)
- Next i
- Sheets(2).[a65536].End(3).Offset(1).Resize(4, 11) = arr
- End Sub
复制代码 |