エクセル マクロ
以下のマクロを作成し
Fnameを開き、そのファイルで特定の文字列を探し、Offsetしたセルの値のコピー&ペーストをしようとしています。
しかし、ファイルは開くのですが、コピー&ペーストをいません。
どのようにすれば、実行できるのでしょうか?
変数やOffsetの使い方が違うと思うのですが、教えてください。
Dim Wbk As Workbook
Dim Fname As String
Dim f As Integer
For f = 1 To 100
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
Fname = Cells(f, 1).Value & ".xls"
Application.ScreenUpdating = False
Workbooks.Open (Fname), UpdateLinks:=0
Set Obj = Worksheets(Cells(f, 2).Value).Cells.Find(Cells(f, 3).Value)
Obj.Offset(24, 0).Copy
Obj.Offset(36, 0).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks(Fname).Close SaveChanges:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Next f
お礼
繰り返し有難うございます。