質問するログイン新規登録

質問編集履歴

1

追記

2017/01/15 02:58

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -15,8 +15,9 @@
15
15
  For i = 0 To 7
16
16
  If Cells(c_Cnt, "D").Value = "No" Then
17
17
  a(i) = Range(Cells(c_Cnt, "B"), Cells(c_Cnt, "D")).Value
18
+ c_Cnt = c_Cnt + 1
18
19
  End If
19
-
20
+
20
21
  Next i
21
22
 
22
23
  Range(Cells(11, "B"), Cells(11, "D")).Value = a(0)