回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -3,4 +3,16 @@
|
|
|
3
3
|
```vba
|
|
4
4
|
' If Range("B" & i) <> "" Then
|
|
5
5
|
If sh_org.Range("B" & i) <> "" Then
|
|
6
|
+
```
|
|
7
|
+
|
|
8
|
+
別案
|
|
9
|
+
---
|
|
10
|
+
空白以外のセルのカウントなら、CountA関数を使うと簡単です。
|
|
11
|
+
|
|
12
|
+
```vba
|
|
13
|
+
minrow = 2
|
|
14
|
+
last = sh_org.Range("A5000").End(xlUp).Row '最終行は固定で5000
|
|
15
|
+
If last >= minrow Then
|
|
16
|
+
count = WorksheetFunction.CountA(sh_org.Range("A" & minrow & ":A" & last - 1))
|
|
17
|
+
End If
|
|
6
18
|
```
|