|
▼初心者 さん:
>説明不足ですいません。これがはじめに書いたコードです。
>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列の最終行まで出したいということなのですが・・・
とりあえず、F8ボタンでステップインして、変数「行」の値がいくらなのか確認してください。変数の値はローカルウィンドウを表示すれば、一覧できます。あと、変数名の上にカーソルを合わしても表示されると思います。
あと、もしOpenTextで開いたあとのA列の行数を出したいのであれば、変数の設定位置が違います。
|
|