A列に1から47の数字B列に都道府県名が0は不明のデータをC列にある0から47までのデータ400000件をエクセルで変換できるマクロをお願いします。

0 不明    2
1 北海道   3

47 沖縄   20

回答の条件
  • 1人3回まで
  • 13歳以上
  • 登録:2011/03/22 21:19:29
  • 終了:2011/03/22 23:17:53

ベストアンサー

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692011/03/22 22:31:03

ポイント60pt

たぶんC列を対応する県に変換するマクロだと思うので、それならば。

Sub Macro()
    Dim i As Long
    Dim lastRow As Long
    Dim obj As Object
    
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    
    For i = 1 To lastRow
        If Cells(i, "C").Value <> "" Then
            Set obj = Range("A:A").Find(Cells(i, "C"), LookIn:=xlValues, lookat:=xlWhole)
            If Not obj Is Nothing Then
                Cells(i, "C").Value = obj.Offset(0, 1).Value
            End If
        Else
            Cells(i, "C").Value = ""
        End If
    Next i
End Sub

ただ、これだけなら数式のVlookupでできることでもあります。

D列に次の数式を入れて

=VLOOKUP(C1,A:B,2,FALSE)

セルの右下をダブルクリックするとC列に空白が無ければ最終行まで数式が入り、

後はD列を選択して、形式を選択して貼りつけ値でC列に上書き、D列を削除です。

id:inosisi4141

早速ありがとうございました。

大変助かりました。

どちらか使いやすい方を利用したいと思います。

2011/03/22 23:16:09

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません