質問編集履歴
1
コードの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,2 +1,20 @@
|
|
|
1
1
|
for文とif文を組み合わせて、行数を確認して行に空白があった場合は終了、ない場合は最終行までの行数を表示させるプログラムを組みたいのですが、
|
|
2
|
-
Rows.Countとfor文を使い、ifで空白があった場合終了、ない場合は表示と思っているのですが上手く行きません
|
|
2
|
+
Rows.Countとfor文を使い、ifで空白があった場合終了、ない場合は表示と思っているのですが上手く行きません
|
|
3
|
+
|
|
4
|
+
```ここに言語を入力
|
|
5
|
+
sub test()
|
|
6
|
+
|
|
7
|
+
Dim i As Long
|
|
8
|
+
p =Cells(Rows.Count,1).End(xlUP)
|
|
9
|
+
|
|
10
|
+
for i =2 To p
|
|
11
|
+
if i ="" Then
|
|
12
|
+
Exit For
|
|
13
|
+
Else
|
|
14
|
+
Cells(2,9).Value =p
|
|
15
|
+
End if
|
|
16
|
+
|
|
17
|
+
Next i
|
|
18
|
+
|
|
19
|
+
End Sub
|
|
20
|
+
```
|