VBA查找列未知的最后一行和行未知的最后一列

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

VBA查找列未知的最后一行和行未知的最后一列

LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(1, Columns.Count).End(xlToLeft).Column

Private Sub Concatenate_20k_Rows()
    Dim ws As Worksheet
    Dim cell As Range
    Dim LC As Long, i As Long
    Set ws = ActiveSheet
    For Each cell In ws.Range("A1:A20000")
        LC = Cells(cell.Row, Columns.Count).End(xlToLeft).Column
        For i = 1 To LC
            cell.Value = cell.Value & " " & cell.Offset(0, i).Value
        Next i
        cell.Value = Application.Trim(cell.Value)
    Next cell
End Sub

Option Explicit
Function LastRC(Worksht As String) As Long()
'Uncomment if on worksheet
'Application.Volatile
    Dim WS As Worksheet, R As Range
    Dim LastRow As Long, LastCol As Long
    Dim L(1) As Long
    Dim searchRng As Range
Set WS = Worksheets(Worksht)
Set searchRng = WS.Cells
With searchRng
    Set R = .Cells.Find(what:="*", after:=.Cells(1, 1), _
                    LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, _
                    searchdirection:=xlPrevious)
    If Not R Is Nothing Then
        LastRow = R.Row
        LastCol = .Cells.Find(what:="*", after:=.Cells(1, 1), _
                    LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByColumns, _
                    searchdirection:=xlPrevious).Column
        LastRow = 1
        LastCol = 1
    End If

推荐文章

大方的香烟 · centos7，Python2.7安装request包 - willaty - 博客园

2 周前

纯真的冲锋衣 · WPF SourceInitialized 事件 - ExplorerMan - 博客园

7 月前

刚毅的羊肉串 · 【前端实例代码】使用 HTML CSS 和 JavaScript 实现具有带边框悬停动画的彩色发光霓虹灯悬停效果的动画按钮|前端开发网页制作基础入门教程_html 给按钮添加动画效果-CSDN博客

9 月前

奔放的生菜 · 如何使用geopandas绘制核密度图热力图？

1 年前

谦虚好学的紫菜 · mysql 如何优化left join-腾讯云开发者社区-腾讯云

1 年前

VBA查找列未知的最后一行和行未知的最后一列

1 个回答