| |
マクロ初心者です。
お手数ですが、アドバイスをお願いします。
長文になってしまいますが、よろしくです。
txtから読み込んで、○○シートのA列にInput。＊この部分はOKです
先頭文字がJan 〜 Decから始まるものA列を検索。
一致した行をコピーして××シートのA列へ貼り付け繰り返す。
関数はFindを使うと思うのですが、
上手くいきません。
Sub メッセージ加工()
Dim File種類, Prompt, Item As String
Dim FileNamePath As Variant
Dim B As String, N As Long
File種類 = "txtファイル (*.txt),*. txt"
Pronpt = "保存したTFLメールを選択して"
FileNamePath = SelectFileNamePath(File種類, Pronpt)
If FileNamePath = False Then
MsgBox "キャンセルしました"
End
End If
Open FileNamePath For Input As #1
Do Until EOF(1)
Line Input #1, B
N = N + 1
Worksheets("○○").Cells(N, 1) = B
Loop
Str = ""←検索する文字 Jan〜Decを指定したい＞＜
Do
Set Cell = Columns("A").Find(Str, , xlValues, xlWhole)
If Cell Is Nothing Then Exit Do
Loop
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
