|
ありがとうございます。
最終行の真下のセルに入った件数を
開いている他のbookの別セルに貼り付けるように
してみました。
でも切り取ると値貼付ができないので
一旦切り取り、その後貼り付けたセルをコピー→値貼付
というようにしました。
スムーズではないんですが・・・
Sub 件数確認()
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & i + 1).Formula = "=COUNTA(A2:" & Range("A" & i).Address(0, 0) & ")"
Range("A" & i + 1).Select
Selection.Cut
Windows(KARI_F).Activate
Range("G9").Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
|
|