回答編集履歴
1
コード追記
test
CHANGED
|
@@ -9,3 +9,27 @@
|
|
|
9
9
|
If sh_org.Range("B" & i) <> "" Then
|
|
10
10
|
|
|
11
11
|
```
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
別案
|
|
16
|
+
|
|
17
|
+
---
|
|
18
|
+
|
|
19
|
+
空白以外のセルのカウントなら、CountA関数を使うと簡単です。
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
```vba
|
|
24
|
+
|
|
25
|
+
minrow = 2
|
|
26
|
+
|
|
27
|
+
last = sh_org.Range("A5000").End(xlUp).Row '最終行は固定で5000
|
|
28
|
+
|
|
29
|
+
If last >= minrow Then
|
|
30
|
+
|
|
31
|
+
count = WorksheetFunction.CountA(sh_org.Range("A" & minrow & ":A" & last - 1))
|
|
32
|
+
|
|
33
|
+
End If
|
|
34
|
+
|
|
35
|
+
```
|