Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28154 / 76736 ←次へ | 前へ→

【53888】Re:データの読み込み方
発言  VBWASURETA  - 08/2/13(水) 18:43 -

引用なし
パスワード
   ▼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
      'A列が無いからiループから抜け
      Exit For
    Else
      'C列のデータをセルAの変数に入れる
      Cell_A = Range("C" & i)
      For n = i + 1 To 5000
        'A列の1行下があったりする?
        If Range("A" & n) = "" Then
          'A列1行下が無いからnループから抜け
          Exit For
        Else
          'C列とC列1行下が同じ? 又は、 C列とB列1行下が同じ?
          If Cell_A = Range("C" & n) Or Cell_A = Range("B" & n) Then
            'A列とA列1行下が同じで 且つ E列とE列1行下が同じ!
            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
0 hits

【53881】データの読み込み方 haru 08/2/13(水) 16:15 質問
【53888】Re:データの読み込み方 VBWASURETA 08/2/13(水) 18:43 発言
【53908】Re:データの読み込み方 VBWASURETA 08/2/14(木) 13:33 発言

28154 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free