VBA Sub将公式应用于一个单元格块，除了最左边的列和标题行之外

我试图将一个公式应用到一个单元格块，就像标题所说的那样。

最终，我想公式只适用于行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行中包含数据的列，将其转换为字母，然后应用公式。

Answer 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