|
コード表をもとに変換していく作業です。
アドバイスお願いいたします。
※列方向へ順次コピー/ペーストを繰り返し、対象セルが空白になったところで終了したいのです。
Sub Macroコード変換()
'コード表のブックを開く
Workbooks.Open FileName:="H:\コード変換表.xls"
Windows("Book1").Activate
'対象セルの隣に変換式を入力
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],コード変換表.xls!コード表,2,FALSE)"
'変換された値を同一セルにコピー/ペースト
Selection.Copy
Range("E4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'コード表のブックを閉じる
Windows("コード変換表.xls").Activate
ActiveWindow.Close
Application.CutCopyMode = False
End Sub
|
|