vba - 合并单元格数量可变的 2 个单元格

Question

我必须合并 2 个单元格，每次运行时范围可能会有所不同。我正在尝试使用以下代码，但代码存在一些错误，我无法识别。对于固定范围，它工作正常，但对于变量，它显示错误。 Line no 是需要合并的单元格编号，每次运行都会有所不同:

Range("D" & line_no & ":" "E" & line_no & ).Select
Range("D" & line_no).Activate
With Selection
    .VerticalAlignment = xlCenter
    .HorizontalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
End With

Answer 1

我会尝试摆脱 Select一般来说。你可以这样做:

With Range("D" & line_no & ":" & "E" & line_no)
    .VerticalAlignment = xlCenter
    .HorizontalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
End With