如果数据有空行，brr = [a1].CurrentRegion，应该怎么写才能包括全范围

Chiyuen

如果数据有空行，brr = [a1].CurrentRegion，应该怎么写才能包括全范围
另外，能否帮忙注释一下最后一行为什么要加“[a1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr” 是什么用意？


test()
Dim d, arr, brr
arr = Sheets("价目表").[a1].CurrentRegion
brr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr, 1)
        d(arr(i, 1)) = arr(i, 3)
    Next
    For i = 2 To UBound(brr, 1)
        If d.exists(brr(i, 1)) Then brr(i, 3) = d.Item(brr(i, 1))
    Next
    [a1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

ThxAlot

1. sub testD()
   
2. Dim d as object, arr, brr
   
3. arr = Sheets("价目表").[a1].CurrentRegion<div>
   
4. 'brr = [a1].CurrentRegion
   
5. <div>'如果数据区域包括空行，可使用如下“万金油”语句</div><div>Dim lastRow%, lastCol%</div><div>with ActiveSheet</div><div><div><font color="#ff0000">       lastRow = .Cells.Find("*", [A1], xlFormulas, xlPart, xlByRows, xlPrevious, False).Row</font></div><div><font color="#ff0000">       lastCol = .Cells.Find("*", [A1], xlFormulas, xlPart, xlByColumns, xlPrevious, False).Column</font></div></div><div>       brr = .Range(.[A1], .Cells(lastRow, lastCol))</div><div>end with</div><div>
   
6. </div><div>'红色的语句属于对字典对象的常用操作，建议去学习VBA字典的用法</div><div>Set d = CreateObject("scripting.dictionary")
   
7.     For i = 1 To UBound(arr, 1)
   
8.         <font color="#ff0000">d(arr(i, 1)) = arr(i, 3)</font>
   
9.     Next
   
10.     For i = 2 To UBound(brr, 1)
    
11.         <font color="#ff0000">If d.exists(brr(i, 1)) Then brr(i, 3) = d.Item(brr(i, 1))</font>
    
12.     Next
    
13.    <font color="#ff0000"> [a1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr</font>
    
14. End Sub</div></div>

复制代码

zyr2046

Sheets("价目表").Range("a1:a" & Sheets("价目表").Cells(Rows.Count, 1).End(xlUp).Row)

liulang0808

brr = activesheet.usedrange
还有问题，建议楼主上传附件

Chiyuen

liulang0808 发表于 2020-2-2 08:19
brr = activesheet.usedrange
还有问题，建议楼主上传附件

成功了，可行

Chiyuen

liulang0808 发表于 2020-2-2 08:19
brr = activesheet.usedrange
还有问题，建议楼主上传附件

请问一下，，最后一行的“[a1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr” UBound(brr, 1) 是代表横向还是纵向数量

Chiyuen

liulang0808 发表于 2020-2-2 08:19
brr = activesheet.usedrange
还有问题，建议楼主上传附件

非常感谢

Chiyuen

Chiyuen 发表于 2020-2-4 17:22
请问一下，，最后一行的“[a1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr” UBound(brr, 1) 是代表 ...

  我总是不太理解最后一句话的含义 [a1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr。。上面一行已经用For循环在字典里查找完了。为什么要加这个resize？不过我去掉这一行， 还真显示不出内容

小花鹿

Chiyuen 发表于 2020-2-4 20:04
我总是不太理解最后一句话的含义 [a1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr。。上面一行已经 ...

在帮助里看看Resize的含义

Chiyuen

小花鹿 发表于 2020-2-4 20:46
在帮助里看看Resize的含义

这个Resize 是要扩展这个数组的范围，既然已经查找字典赋值了。为什么还要扩展？