|
▼KOTARO さん:
>コード表をもとに変換していく作業です。
>アドバイスお願いいたします。
>※列方向へ順次コピー/ペーストを繰り返し、対象セルが空白になったところで終了したいのです。
こんな感じでしょうか?
対象セルは、D4以下とした場合
Sub Macroコード変換()
Dim rg As Range
'コード表のブックを開く
Workbooks.Open FileName:="H:\コード変換表.xls"
Set rg = Workbook("Book1").ActiveSheet.Range("D4")
Do While rg =<> ""
'対象セルの隣に変換式を入力
rg.Offset(0,1).FormulaR1C1 = _
"=VLOOKUP(RC[-1],コード変換表.xls!コード表,2,FALSE)"
'変換された値を同一セルにコピー/ペースト
rg.Offset(0,1).Value = rg.Offset(0,1).Text
'コード表のブックを閉じる
Windows("コード変換表.xls").Close
Set rg = rg.Offset(1,0)
Loop
End Sub
コピーは、Textを利用してみました。Textは表示値です。
Windowを閉じるは、一つのブックに対して複数のWindowを開いている場合に使うとよいですよ。
|
|