こんにちは、行 1 全体で 7 つのセルを結合したいと思います。Shift キーを押しながら A1 をクリックし、右矢印キーを 6 回押す代わりに、マクロを使用してこれを実現できると考えています。私は次のように書いていますが、文字の参照に 7 を追加する方法がわかりません。特に、AA1 で終わる最後の 7 に入ると、AA2 が開始されて続きます。次のコードは私が望むものを実現しますが、変数とループを導入して文字を int として保存し、6 を追加してから文字列にキャストし直して次のセットに進むにはどうすればよいでしょうか? どのように書きますかWhile (End of row has not been reached)
Range("A1:G1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("H1:N1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With