Question

EXCEL中VBA编程问题

Dim nRow%, nRow1&
Arr = Sheets("单选缩水区").Range("B7:U56")
nRow1 = Sheets("单选缩水区").Range("f6").End(xlDown).Row
If nRow1 > 20 Then Exit Sub
With Sheets("单选验证")
nRow = .Range("a65536").End(xlUp).Row + 1
.Range("e" & nRow).Resize(nRow1 - 1, 20) = Arr
.Range("a" & nRow).Resize(nRow1 - 1, 1) = Format(Date, "yyyy-mm-dd")
End With
End Sub
为什么只能保存数据到六行，想让他保存全部数据，怎么调整，谢谢

Answer 1

不知道你的目的，只能推测
单从代码看这段程序有点问题
1、如果F6是空白的话，只能取6行，这个时候nRow1=7，resize时再减掉1就剩6了
2、如果F6不是空白的话，如果缩水区数据F20下面还有数据的话，就出现nRow1大于20，退出了
3、如果F20后没有数据，取7到20行数据，共计14行，但程序又resize了20行的区域，导致日期会多出4行
如果只是简单的复制没必要这么复杂，直接用copy

追问

就是拷贝数据B7到U56的20行所有数据到另一页保存到另一页e到x列20行，其他数值往下一行排列。怎么能调整到30行一下

Answer 2

当A1单元格显示为PN，则把sheet2中的A1到C4区域复制到新建的sheet3中的A2到C5区域。如果A1单元格显示DP，则把sheet2中的A1到C1区域的内容复制到新建的sheet3中的A2到C2区域
这个真的没有表述错误吗