EXCEL VBAについて質問です。 アドバイスを宜しくお願い致します。 現状開いているシートの日付を参照し、新しく開いたシートの日付とあっているセル下部に 貼り付けを行おうとしています。 条件的にはあっている気がしますが、なぜか貼りつきません。 アドバイス宜しくお願いたします。 元シート日付 2014/06/01 添付画像が貼り付け先のEXCELとなっております。 以上宜しくお願い致します。 Dim s As Long Dim wb As String Dim dy2 As String Dim a As String dy2 = Range("M1") 元EXCELの日付を参照 Range("M5:R41").Copy 元EXCELのデータをコピーする。 wb = "D:\Documents and Settings\ssk\デスクトップ\まとめ.xls" ’ Workbooks.Open (wb) 新しいブックを開く。 Sheets("data").Select 対象のシートを選択 For n = 2 To 187 Step 6 If Cells(1, n).Value = dy2 Then 元ブックの日付と新しく開いたブックの日付を参照しあっていれば下記のようにはりつけする。 Cells(3, n).Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End If Next End Sub
↧