使用Excel中的公式填充半空列-Java 学习之路

-1

我需要一种方法来选择一个包含数千个空单元格的列，直到包含数据的最后一行（通常在非相邻列中），然后用公式填充选择 . 到目前为止，我一直在使用ctrl↓来查找我知道不是空的列的最后一行，并使用它作为参考点来确定我的范围 . 有没有办法在VBA中更快地完成这项工作？我对VBA很陌生，但如果能做到这一点，我的工作就会轻松多了 . 提前致谢！ :)

1 回答

一些可靠的方法来查找最后使用的包含工作表值的单元格：

Option Explicit
Sub lastUsedCells()         'optimised for performance
    Dim maxRow As Long
    Dim maxCol As Long
    With ActiveSheet
        If WorksheetFunction.CountA(.UsedRange) > 0 Then        'if sheet is not empty
            With .UsedRange 'restrict search area to UsedRange; (includes formats)

                maxRow = .Rows.Count + 1                        'last row in UsedRange
                maxCol = .Columns.Count + 1                     'last col in UsedRange

                'first cell not empty in col A
                If Len(.Cells(1, 1)) = 0 Then MsgBox .Cells(1, 1).End(xlDown).Row
                'first cell not empty in row 1
                If Len(.Cells(1, 1)) = 0 Then MsgBox .Cells(1, 1).End(xlToRight).Column
                MsgBox .Cells(maxRow, 1).End(xlUp).Row          'last row in column A
                MsgBox .Cells(1, maxCol).End(xlToLeft).Column   'last column in row 1
                MsgBox .Find( _
                            What:="*", _
                            After:=.Cells(1, 1), _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious).Row    'last row (longest col)
                MsgBox .Find( _
                            What:="*", _
                            After:=.Cells(1, 1), _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious).Column 'last col (longest row)
            End With
        Else
            MsgBox "Sheet " & .Name & " is empty"
        End If
    End With
End Sub

更多细节：Finding last used cell in VBA

回复于 2024-04-18T08:33:35+08:00

使用Excel中的公式填充半空列

1 回答

相关问题