请问哪位 VBA 大神，能详细解释一下这段代码？

Question

arr = Range("b10:I14")
brr = Range("c6")
crr = Range("f6") & Range("H6") & Range("I6")
drr = Range("F7")
X = Sheets("数据汇总").Range("E65536").End(xlUp).Row
Y = WorksheetFunction.CountA(Range("B10:B14"))
MsgBox "复制 ：" & Y & " 行数据"
Sheets("数据汇总").Cells(X + 1, "E").Resize(5, 6) = arr
Sheets("数据汇总").Cells(X + 1, "D").Resize(Y, 1) = brr
Sheets("数据汇总").Cells(X + 1, "C").Resize(Y, 1) = crr
Sheets("数据汇总").Cells(X + 1, "B").Resize(Y, 1) = drr
n = Sheets("数据汇总").Range("E65536").End(xlUp).Row
Sheets("数据汇总").Range("a2:a" & n) = "=row(a1)"
Sheets("数据汇总").Select
MsgBox "送货单已保存成功！"

从第5行到第14行，一点都看不懂了。
在线等！！！！！！

Answer 1

arr = Range("b10:I14") 
brr = Range("c6") 
crr = Range("f6") & Range("H6") & Range("I6") 
drr = Range("F7") 
X = Sheets("数据汇总").Range("E65536").End(xlUp).Row'E列最下面有数据的行号
Y = WorksheetFunction.CountA(Range("B10:B14")) '当前工作表B10:B14中有数据的单元格个数
MsgBox "复制 ：" & Y & " 行数据"'提示信息:复制几行数据
Sheets("数据汇总").Cells(X + 1, "E").Resize(5, 6) = arr'有E列最下面有数据的下一行6列放置Arr数据也就是B10:I14数据
Sheets("数据汇总").Cells(X + 1, "D").Resize(Y, 1) = brr '在对应行的D列放置brr
Sheets("数据汇总").Cells(X + 1, "C").Resize(Y, 1) = crr '在对应行的C列放置crr 
Sheets("数据汇总").Cells(X + 1, "B").Resize(Y, 1) = drr'在对应行的B列放置drr 
n = Sheets("数据汇总").Range("E65536").End(xlUp).Row'找出有数据的最大行号
Sheets("数据汇总").Range("a2:a" & n) = "=row(a1)"'在A列写入序号,A2为1开始直到最大数据行
Sheets("数据汇总").Select'设置"数据汇总"工作表为当前工作表MsgBox "送货单已保存成功！"
'以上代码y=这句外,其他都是针对"数据汇总"工作表

追问

你好，真的是太感谢你了。
请问我还能请教你一个问题吗？
我已经把问题 发私信给你了。

追答

为什么不采纳呢

追问

必须采纳。而且是 加 悬赏值 采纳。
太谢谢你了。