|
説明不足ですいません。これがはじめに書いたコードです。
Sub TENZAIK()
Dim 行 As Integer
Dim n As Integer
n = 2
行 = Columns(1).CurrentRegion.Rows.Count
Workbooks.OpenText Filename:="ファイル名", _
DataType:=xlDelimited, Comma:=True
Application.DisplayAlerts = False
Columns(2).Select
Selection.Insert
Cells(1, n).Value = "得意先"
Application.CutCopyMode = False
Cells(2, n).Select
Selection.FormulaR1C1 = "=MID(RC[-1],1,7)"
Selection.Copy
Range(Cells(3, n), Cells(行, n)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
"=MID(RC[-1],1,7)"の計算式をB列に出したいのです。
B列に出すときにA列の最終行まで出したいということなのですが・・・
|
|