|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 梧叶沙沙 于 2018-3-17 22:44 编辑
- Sub 复制()
- With Worksheets("开票")
- rrow = .Range("c5").End(xlDown).Row
- rrow1 = Worksheets("流水").Range("a65536").End(xlUp).Row + 1
- If rrow > 5 Then
- ar = .Range("b6:b" & rrow)
- Worksheets("流水").Range("a" & rrow1).Resize(UBound(ar), 1) = ar
- br = .Range("c6:i" & rrow)
- Worksheets("流水").Range("e" & rrow1).Resize(UBound(br, 1), UBound(br, 2)) = br
- Else
- End If
- For i = 1 To UBound(ar)
- Worksheets("流水").Cells(i + rrow1 - 1, "b") = .Range("i3").Value
- Worksheets("流水").Cells(i + rrow1 - 1, "c") = .Range("d3")
- Next
- End With
- End Sub
复制代码 |
|