回答編集履歴
1
修正
test
CHANGED
|
@@ -24,7 +24,9 @@
|
|
|
24
24
|
|
|
25
25
|
For i = 2 To mydata.Cells(Rows.Count, 1).End(xlUp).Row '選択した範囲の行番号(2行目から終わりまで)
|
|
26
26
|
|
|
27
|
+
If isNull(mydata.Cells(i, j).Value) = true _
|
|
28
|
+
|
|
27
|
-
|
|
29
|
+
or mydata.Cells(i, j).Value = "" Then '検索しているセルに値が入っていない時
|
|
28
30
|
|
|
29
31
|
mydata.Range(mydata.Cells(i - 1, j), mydata.Cells(i, j)).Merge 'ひとつ上のセルと結合する
|
|
30
32
|
|