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

ポイントは、Basepointの最初の列を参照してその列を取得する必要があります。あなたの行がこれに似改正する場合、これは、達成することができますアドバイスとして

Range(Cells(row,BasePoint.Columns(1).Column),Cells(row,BasePoint.Columns(6).Column)).Merge 

：

• は変数としてrow、column、Cells、Rangeなどのような名前を使用しないでください、 ExcelオブジェクトモジュールライブラリVBAにもそれらが使用されます。あなたの場合はBasePoint.rowです。変数rowがない場合、VBEditorはBasePoint.Rowと自動的に書き込まれます。マットのマグカップは、コメントで述べた@としてHow to avoid using Select in Excel VBA

• とき、CellsとRangesの「親」と表示するのは良い習慣です -

• は、それが文脈にもよるが、Selectionを回避しようそれらを使用しています。あなたのケースではこのように 、このような何か：

---

With Worksheets(1) 
     .Range(.Cells(row, BP.Columns(1).Column), .Cells(row, BP.Columns(6).Column)).Merge 
End With 

そして、それは常に最初のワークシート（またはどちらかあなたがする必要があります）にしていないと呼ばれることになるActiveSheet、を参照することになり、場合はParent記載されていません。 （私はそれが1行に行くことを確認する代わりにBasePointのBPを書かれている。）

Answer 2

これは十分なはずです：

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

説明：SelectionはそうSelection(1)左上のセルをとり、複数のセルにまたがることができます - したがって、我々は常に1つの細胞を参照する。