Sub test()
Dim tbl() As Variant
Dim r As Long
Dim c As Integer
Dim buf(2) As Integer
Dim i As Integer, j As Integer
Dim ck As Boolean
'右の表を配列へ
i = -1
For c = 25 To 33 Step 4
For r = 3 To 11
i = i + 1
ReDim Preserve tbl(3, i)
tbl(0, i) = Cells(r, c).Value
tbl(1, i) = Cells(r, c + 1).Value
tbl(2, i) = Cells(r, c + 2).Value
tbl(3, i) = Cells(r, c + 3).Value
Next r
Next c
'9~12列の値と配列を比較
For r = 3 To Cells(Rows.Count, 9).End(xlUp).Row
If r Mod 13 <> 2 Then
Erase buf
For c = 9 To 11
If IsNumeric(Left(Cells(r, c).Value, 1)) Then
buf(c - 9) = Cells(r, c).Value
End If
Next c
ck = False
For i = 0 To UBound(tbl, 2)
If buf(0) = tbl(1, i) And buf(1) = tbl(2, i) And buf(2) = tbl(3, i) Then
Cells(r, 8).Value = tbl(0, i)
ck = True
Exit For
End If
Next i
If ck = False Then
Cells(r, 8).Value = "notall"
End If
End If
Next r
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) フォーム上のリストボックスに重複して表示しています 3 2022/10/19 11:55
- Visual Basic(VBA) VBA チェックボックスの設定について 1 2022/10/24 10:27
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBAチェックボックスで有効無効切り替えできるように 5 2022/10/21 16:13
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
subの配列引数をoptionalで使う...
-
配列変数の添字が範囲外ですと...
-
for each の現在の配列ポインタ...
-
エクセルで最小値から0を除く方法
-
行列の積の計算プログラムを教...
-
VBA Match関数の限界
-
配列内の内容を全て表示する方法
-
えfor文とか使っちゃう時点で時...
-
Excel-VBAの配列「Public Const...
-
MATLABにて場合分け関数を定義...
-
配列の内容に重複をなくすには...
-
Dim は何の略ですか?
-
順列の作成
-
配列を任意の数値で埋める方法
-
プログラムについて
-
ListViewで、非表示列って作れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
for each の現在の配列ポインタ...
-
VBのFunctionで、配列を引数...
-
subの配列引数をoptionalで使う...
-
VB6 配列を初期化したい
-
ListViewで、非表示列って作れ...
-
配列変数の添字が範囲外ですと...
-
Excel-VBAの配列「Public Const...
-
2次元動的配列の第一引数のみを...
-
VBAで近似曲線の係数取得
-
VLOOKUP関数で、一番下...
-
配列に同じ値を入れる方法
-
エクセルで最小値から0を除く方法
-
linest関数に配列を渡す
-
配列を任意の数値で埋める方法
-
Dim は何の略ですか?
-
配列内の内容を全て表示する方法
おすすめ情報
説明足らずで申し訳ありません。
1行ずつのコードの説明の事です・。宜しくお願いします。