VB如何查找并返回最后有数据的一行？

Slowton

想通过End(xlUp).Row这个代码查找P列最后有数据的一行，即图片1中的第2207行，但是通过VB用这个代码后查找出来的最后一行仍然是图片2中的整张表格的最后一行，即第2333行，想知道有什么办法能够查找并返回真实有数据的最后一行？

abc123281

r=[p65536].end(xlup).row

lsdongjh

上个附件，你的表述有问题

Slowton

添加了附件，不过这个是没有VB的版本，希望实现的功能就是将N列中有单元格数据的内容复制至B列，对于N列中没有数据的单元格则不复制至B列。

Slowton

lsdongjh 发表于 2018-8-24 09:55
上个附件，你的表述有问题

您好，附件添附在4楼了谢谢！

Slowton

添加了VB的版本。按F8逐行运行，显示变量r返回的N列最后一行行数是2333，但是我只需要返回N列其中2207行有数据的行数。

xiangbaoan

用find方法准确获得实际数据的最后一个单元格。
lastrow=[g:g].find("*", , , , , xlprevious).row

lsdongjh

1. Sub Test()
   
2.     Dim SH As Worksheet
   
3.     Dim lngRow_start As Long, lngRow_end As Long
   
4.     Dim lngRow As Long, lngCol As Long
   
5.     Dim arrSource As Variant
   
6.    
   
7.     Set SH = Sheets("Sheet1")
   
8.     lngRow_start = Sheet1.UsedRange.Row
   
9.     lngRow_end = Sheet1.UsedRange.Rows.Count + Sheet1.UsedRange.Row - 1
   
10.    
    
11.     arrSource = SH.Range("A" & lngRow_start & ":N" & lngRow_end)
    
12.    
    
13.     '假设有效区域第一行为 标题
    
14.     For lngRow = 2 To UBound(arrSource)
    
15.         '如果N列不为空，B列=N列
    
16.         If arrSource(lngRow, 14) <> "" Then arrSource(lngRow, 2) = arrSource(lngRow, 14)
    
17.     Next
    
18.    
    
19.     SH.Range("A" & lngRow_start & ":N" & lngRow_end) = arrSource
    
20. End Sub
    

复制代码

Slowton

xiangbaoan 发表于 2018-8-24 10:24
用find方法准确获得实际数据的最后一个单元格。
lastrow=[g:g].find("*", , , , , xlprevious).row

用您的代码测试成功了，非常感谢！