EXCEL中如何通过宏实现数据的复制粘贴(2)

发布网友发布时间：2022-04-24 04:16

共3个回答

热心网友时间：2023-07-31 02:46

Sub 数据整理()
HH1 = Sheets("Sheet6").Range("A65536").End(xlUp).Row
HH2 = Sheets("Sheet6").Range("J65536").End(xlUp).Row
If Sheets("Sheet6").Range("A1") <> "" Then HH1 = HH1 + 1
If Sheets("Sheet6").Range("J1") <> "" Then HH2 = HH2 + 1
'------------------------------
Hs = 11: L1 = 10: L2 = 17
Ls = 21: H1 = 1: H2 = 6
'------------------------------
For I = 1 To 30
H = Hs + I - 1
If Cells(H, L1) <> "" Then
LL1 = 1
For L = L1 To L2
Sheets("Sheet6").Cells(HH1, LL1) = Cells(H, L)
LL1 = LL1 + 1
Next
HH1 = HH1 + 1
End If
L = Ls + I - 1
If Cells(H1, L) <> "" Then
LL2 = 10
For H = H1 To H2
Sheets("Sheet6").Cells(HH2, LL2) = Cells(H, L)
LL2 = LL2 + 1
Next
HH2 = HH2 + 1
End If
Next
End Sub

热心网友时间：2023-07-31 02:47

用vba解决是没问题的，只是不是很能够明白你的表述。

热心网友时间：2023-07-31 02:47

看不懂新表怎么排列。