回答編集履歴
1
コードを追加しました
test
CHANGED
|
@@ -1,10 +1,22 @@
|
|
|
1
|
+
【Test1】
|
|
2
|
+
|
|
1
3
|
Booleanを使い空白が有ったらTrueにして、最後までTrueだったら行、列を削除する。
|
|
2
4
|
|
|
3
5
|
行と列で2回のループになります。
|
|
4
6
|
|
|
5
7
|
|
|
6
8
|
|
|
9
|
+
【Test2】
|
|
10
|
+
|
|
11
|
+
データーが無い イコール 最終行、列の番号＝1になるので1になればその行、列を削除
|
|
12
|
+
|
|
13
|
+
こちらの方が簡単です。
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
7
17
|
```vba
|
|
18
|
+
|
|
19
|
+
Sub Test1()
|
|
8
20
|
|
|
9
21
|
Dim i As Long, j As Long
|
|
10
22
|
|
|
@@ -72,4 +84,46 @@
|
|
|
72
84
|
|
|
73
85
|
Next j
|
|
74
86
|
|
|
87
|
+
End Sub
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
|
|
91
|
+
Sub Test2()
|
|
92
|
+
|
|
93
|
+
Dim i As Long
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
'行の削除
|
|
98
|
+
|
|
99
|
+
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
|
|
100
|
+
|
|
101
|
+
If Cells(i, Columns.Count).End(xlToLeft).Column = 1 Then
|
|
102
|
+
|
|
103
|
+
Rows(i).Delete
|
|
104
|
+
|
|
105
|
+
End If
|
|
106
|
+
|
|
107
|
+
Next i
|
|
108
|
+
|
|
109
|
+
|
|
110
|
+
|
|
111
|
+
'列の削除
|
|
112
|
+
|
|
113
|
+
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
|
|
114
|
+
|
|
115
|
+
If Cells(Rows.Count, i).End(xlUp).Row = 1 Then
|
|
116
|
+
|
|
117
|
+
Columns(i).Delete
|
|
118
|
+
|
|
119
|
+
End If
|
|
120
|
+
|
|
121
|
+
Next i
|
|
122
|
+
|
|
123
|
+
|
|
124
|
+
|
|
125
|
+
End Sub
|
|
126
|
+
|
|
127
|
+
|
|
128
|
+
|
|
75
129
|
```
|