回答編集履歴
1
修正
answer
CHANGED
|
@@ -11,7 +11,8 @@
|
|
|
11
11
|
|
|
12
12
|
For j = 1 To mydata.Column '選択した範囲の列番号(1 = E列)
|
|
13
13
|
For i = 2 To mydata.Cells(Rows.Count, 1).End(xlUp).Row '選択した範囲の行番号(2行目から終わりまで)
|
|
14
|
+
If isNull(mydata.Cells(i, j).Value) = true _
|
|
14
|
-
|
|
15
|
+
or mydata.Cells(i, j).Value = "" Then '検索しているセルに値が入っていない時
|
|
15
16
|
mydata.Range(mydata.Cells(i - 1, j), mydata.Cells(i, j)).Merge 'ひとつ上のセルと結合する
|
|
16
17
|
End If
|
|
17
18
|
Next i
|