如何解决在多行数据中查找一列中的最后一个活动单元格
我的表中有一堆不连续的数据,跨越108行和15列。我正在尝试查找每行中最后使用的单元格,并将其粘贴到另一个工作表中。 例如:第3列J列的最后一个数据,第5列O列...第38列第I列,依此类推 我对编写VBA非常陌生,任何帮助都会很棒 编辑 这就是我所拥有的:
Sub Selectionoflastcell()
Dim lRow As Long
Dim lCol As Long
Dim ccol As Range
Dim i As Long
With Worksheets("May-July Quarter").ListObjects("Table2").DataBodyRange
Worksheets("Sheet1").Cells(1,2).ClearContents
lCol = .Cells(1,.Columns.Count).End(xlToRight).Column
Set colrange = .Range(.Cells(1,1),.Cells(1,lCol))
i = 1
For Each ccol In colrange
lRow = .Cells(.Rows.Count,ccol.Column).End(xlUp).Row
Worksheets("Sheet1").Cells(i,2).Value = .Cells(lRow,ccol.Column).Value
i = i + 1
Next ccol
End With
End Sub
但这只是给我从底部开始的每列的最后一个值,如果将其更改为xltoLeft,我只会得到第一行
解决方法
尝试一下:
C:\> Path
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。