|
2学分
本帖最后由 1049671600 于 2022-10-12 11:42 编辑
才接触VBA,很多东西还不懂,恳求大神帮助
本帖最后由 zjdh 于 2019-5-15 17:21 编辑
Sub 复制()
Dim rn%, rns As Range
ar = Range("A3:J" & [J1].End(4).Row)
With Sheets("sheet2")
rn = .Cells(Rows.Count, 12).End(3).Row + 1
If rn < 12 Then rn = 12
.Range("L" & rn).Resize(UBound(ar), UBound(ar, 2)) = ar
For Each rns In .Range("L12", .[L12].End(4)) '序号
If rns <> "" Then rns(1, 0) = rns.Row - 11
Next
End With
End Sub
|
最佳答案
查看完整内容
Sub 复制()
Dim rn%, rns As Range
ar = Range("A3:J" & [J1].End(4).Row)
With Sheets("sheet2")
rn = .Cells(Rows.Count, 12).End(3).Row + 1
If rn < 12 Then rn = 12
.Range("L" & rn).Resize(UBound(ar), UBound(ar, 2)) = ar
For Each rns In .Range("L12", .[L12].End(4)) '序号
If rns "" Then rns(1, 0) = rns.Row - 11
Next
End W ...
|