我正在尝试将公式应用于单元格块，如标题所说。
最终，我希望该公式仅应用于在第 1 行和第 A 列中具有值的单元格。
我尝试了这个，但很快意识到我只是将公式应用于工作表中的每个单元格，除了最左侧和标题行。
Sub A_B4()
Application.CutCopyMode = False
Range("B2").Select
ActiveCell.Formula = "=RC1&"" ""&R1C"
Selection.AutoFill Destination:=Range(Range("B2"), Range("B2").End(xlDown).End(xlToRight))
End Sub
我想我需要使用类似的东西：
With .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
它将计算 A 列中包含数据的行数（该部分不包含的标题除外），并应用公式。然后计算第 1 行中有数据的列数，然后向下应用公式。但这就是我迷失的地方。我觉得应该有一种更简单的方法，而不是计算第 1 行中包含数据的列，将其转换为字母，然后应用公式。
使用 R1C1 公式表示法无需自动填充。
Sub A_B4()
Dim lr As Long
Dim lc As Long
With ActiveSheet
lr = .Cells(.Rows.Count, 1).End(xlUp).Row
lc = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range("B2", .Cells(lr, lc)).FormulaR1C1 = "=RC1&"" ""&R1C"
End With
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句