【EXCEL VBA】についての質問です。

Question

pocon

36

32もっと見る

100pt

コンピュータウェブ制作

【EXCEL VBA】についての質問です。

100　A
101　B
102
103
104　E
101　　　　BH
100　A
101　H
100　　　　AA
100　　　　AA

左からABC列となってます。

A列：ランダムな数字(検索値＆範囲)
B列：ランダムな文字列(C列の表示条件)

B列が空白かつ、A列の別行に同じセルデータが入力されている行のC列に対し
該当するB列をすべて表示させるコードをご教授ください。

回答の条件

1人5回まで

登録：2009/04/03 12:47:29
終了：2009/04/03 13:07:52

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

SALINGER · Accepted Answer · 2009-04-03T13:01:17+09:00

Sub test()
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lastRow
        If Cells(i, 2).Value = "" Then
            For j = 1 To lastRow
                If Cells(i, 1).Value = Cells(j, 1).Value Then
                    Cells(i, 3).Value = Cells(i, 3).Value & Cells(j, 2).Value
                End If
            Next j
        End If
    Next
End Sub

【EXCEL VBA】についての質問です。

ベストアンサー

SALINGER34549692009/04/03 13:01:17

コメント（0件)

この質問への反応（ブックマークコメント）