|
並び替えを行う際にセルの結合の解除をしてしまいました
それを直そうと思ったのですがデータの数が多く手作業で行うには骨が折れそうだったので
組もうと思ったのですがうまくいかず質問させていただきます
データには2種類あって
1.F〜Qの各セルに文字や数値が入力されているもの
2.Fのみに文字や数値が入力されているもの
となっています
ここで2.のほうの形を合わせるために
2.のみをF〜Qまで結合させたいと思っています
FをアクティブにしてF〜Qまでを結合する
Range(Selection, Selection.Offset(0, 11)).Select
Dim r As Range
If StrComp(TypeName(Selection), "Range", 1) = 0 Then
For Each r In Selection.Rows
If r(1).MergeCells = False Then
r.Merge
With r.Rows
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Else
With r
.UnMerge
.HorizontalAlignment = xlGeneral
End With
End If
Next r
End If
ここまでは組めたのですがこれでは一つ一つ押していかなければならないので
G3からG3967までで空白セルがあれば自動的にその行のF〜Qまでを結合する
このやり方を教えていただきたいです
拙い質問文で申し訳ありませんがどうかよろしくお願いいたします
|
|