vba - Excel选择一行

Question

我正在尝试创建一个宏，它将采用第一个单元格并将其与第 6 个单元格合并。我收到错误 400。

Sub SignPage()
Dim ws As Worksheet, BasePoint As Range, row As Long, singlecell As Long, 
singleCol As Long, sLong As Long, sShort As String
Set BasePoint = Selection
row = BasePoint.row
Range(Cells(row, BasePoint.Columns(1)), Cells(row, BasePoint.Columns(6))).Merge

End Sub

Answer 1

这应该足够了:

Selection(1).Resize(, 6).Merge

解释: Selection可以跨越多个单元格，所以 Selection(1)取左上角的单元格 - 因此，我们总是指一个单元格。