ブック名を取得 ⇒ 不要文字列削除 ⇒ 取得文字列分割AB ⇒ ABを特定セルに最終行まで繰り返し入力

2019/08/17


20170101_サンプル不要文字列.csv
というブック名取得して、特定セルに、「20170101」と、「サンプル」という文字を最終行まで入力する。

Sub bookname()
Dim i, ii, iii
Dim maxrow

i = ActiveWorkbook.Name
ii = Replace(i, "不要文字列.csv", "")
iii = Split(ii, "_")

スポンサーリンク

----- べんりあつめ。-----

Range("A1").Value = "Aの項目名"
Range("B1").Value = "Bの項目名"

'最終行を取得して、最終行まで繰り返す。
Dim MaxRow, MaxCol As Long
With ActiveSheet.UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
'MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
For i = 1 To maxrow - 1
Cells(i + 1, 1).Value = iii(0)
Cells(i + 1, 2).Value = iii(1)
Next i

End Sub

スポンサーリンク

スマホのみ下に表示