发布网友
发布时间:2022-05-23 08:46
共4个回答
热心网友
时间:2023-10-18 09:48
Sub 转换()
Application.ScreenUpdating = True
Sheet1.Select
Le = Cells(1, 256).End(xlToLeft).Column
H1 = 1
For L = 1 To Le
H2 = Cells(65536, L).End(xlUp).Row
范围 = Range(Cells(H1, L), Cells(H2, L))
Sheet2.Select
HHe = Cells(65536, 1).End(xlUp).Row
If HHe = 1 And Cells(HHe, 1) = "" Then
HH1 = HHe
Else
HH1 = HHe + 1
End If
HH2 = HH1 + H2 - H1
Range(Cells(HH1, 1), Cells(HH2, 1)) = 范围
Sheet1.Select
Next
Sheet2.Select
End Sub
热心网友
时间:2023-10-18 09:49
热心网友
时间:2023-10-18 09:49
热心网友
时间:2023-10-18 09:50
追答需不需要我帮你你转