人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

47 沖縄 20


●質問者: inosisi
●カテゴリ:科学・統計資料
✍キーワード:エクセル データ マクロ 北海道 数字
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント ベストアンサー

たぶん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列を削除です。

◎質問者からの返答

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

大変助かりました。

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ