|
▼まる さん:
>ありがとうございます。
>最終行の真下のセルに入った件数を
>開いている他の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
Sub 件数確認2()
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
With Range("A" & i + 1)
.Formula = "=COUNTA(A2:" & Range("A" & i).Address(0, 0) & ")"
Windows(KARI_F).Activate
ActiveSheet.Range("G9").Value = .Value
End With
End Sub
こうゆう事でしょうか?
|
|