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

推荐文章

睿智的熊猫 · TypeError: 'numpy.ndarray' object is not callable错误的处理办法-CSDN博客

3 月前

踏实的佛珠 · pip intall 出现 error: subprocess-exited-with-error 错误的解决办法-CSDN博客

1 年前

读研的酱肘子 · 将数据存储到剪贴板以及从剪贴板读取数据 - Visual Basic | Microsoft Learn

1 年前

爱看书的乌冬面 · python-numpy两个数组对应元素运算_python数组对应元素相除_252619的博客-CSDN博客

2 年前

踢足球的筷子 · vue之render和slot-scope自定义表格table_vue columns render_桂丽莎白的博客-CSDN博客

2 年前

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

1 个回答