|
- Sub 复制()
- With Worksheets("开票")
- rrow = .Range("c5").End(xlDown).Row '取得C列已用行号
- rrow1 = Worksheets("流水").Range("a65536").End(xlUp).Row + 1 '取得流水表格a列已用行号
- 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
复制代码 |
评分
-
1
查看全部评分
-
|