|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
自已现在也在慢慢的学习VBA,可能是没有什么底子,很多代码不能理解是什么意思,
希望高手哥哥能帮忙讲解下下面的代码是什么意思。
- Dim Arr, ar, n%, k%, s$, d
- With Worksheets("入库单")
- n = .[b5].End(4).Row()
- If n = 6 Then End
- d = .[c4]: s = .[k4]
- Arr = .[b7:k7].Resize(n - 6)
- ar = .[l7].Resize(n - 6)
- Union(Range(.Cells(7, 2), .Cells(n, 2)), Range(.Cells(7, 6), .Cells(n, 9)), _
- Range(.Cells(7, 11), .Cells(n, 12))).ClearContents
-
- With Worksheets("入库记录")
- k = .[b1048576].End(3).Row + 1
- If k < 5 Then k = 5
- .Cells(k, 2).Resize(n - 6, 10) = Arr
- .Cells(k, 14).Resize(n - 6) = ar
- .Cells(k, 1).Resize(n - 6).Formula = "=row()-4"
- .Cells(k, 12).Resize(n - 6) = d
- .Cells(k, 13).Resize(n - 6) = s
复制代码 |
|