| |
▼haru さん：
こんにちは。
書いている条件と内容(見づらいです・・・)がよくわからなかったので、
ソースにコメントとちょっとエラーになる箇所を修正しました。
でも列固定で繰り返ししている理由がさっぱり・・・すみません。
Sub main()
Dim Cell_A As String
ReDim SNAry(0 To 50, 0 To 80)
j = 0
l = 1 'ここ変えさせてもらいました。0だとエラーになりますし。
For i = 1 To 5000
If Range("A" & i) = "" Then
'Ａ列が無いからiループから抜け
Exit For
Else
'C列のデータをセルAの変数に入れる
Cell_A = Range("C" & i)
For n = i + 1 To 5000
'Ａ列の１行下があったりする？
If Range("A" & n) = "" Then
'Ａ列１行下が無いからnループから抜け
Exit For
Else
'C列とC列１行下が同じ？ 又は、 C列とB列１行下が同じ？
If Cell_A = Range("C" & n) Or Cell_A = Range("B" & n) Then
'A列とA列１行下が同じで 且つ E列とE列１行下が同じ！
If Range("A" & i) = Range("A" & n) And Range("E" & i) = Range("E" & n) Then
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'最初はSNAry(Empty, Empty) = Cells(1, 0)の内容を入れよー！！っておい！そんなセルねぇよ
'次にSNAry(0, 1)、Cells(1, 1)カウントアップ
SNAry(j, k) = Cells(i, l) '条件に合った時のセルアドレスはA1 B1 C1 D1 E1 F2 G2 H2 I2 F3 G3 H3 F5 G5 F6です
k = k + 1
l = l + 1
End If
End If
End If
Next n
End If
'初期化
l = 6
j = j + 1
k = 0
Next i
End Sub
|
|
VBWASURETA
- 08/2/13(水) 18:43 -
