|
現在 シート1『入力』シート2『データ』として転記の自動VBAを作ってみたいと思っています
A〜ANの行の転機です
※毎回入力シートに入る件数は変わります
下記ですと A2からAN2に入力した分のみしか反映できないんです…
入力シートの最初から最後まで転記したい場合は どこを変更したらいいのでしょうか‥‥
Sub データの転記()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim myRow As Long
Set Sh1 = Worksheets("入力")
Set Sh2 = Worksheets("データ")
'データ転記
With Sh2
myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range(.Range("A" & myRow), .Range("AN" & myRow)).Value = Sh1.Range("A2:AN2").Value
.Range("AN" & myRow).Value = Sh1.Range("C2").Value * Sh1.Range("AN2").Value
End With
With Sh1
.Range("A2:AN2").ClearContents
End With
End Sub
また、転記をしたデータでオートフィルターを使った場合 重複している名前をカウントしないで集計する方法はありますでしょうか
=SUMPRODUCT(1/COUNTIF(A1:A15,A1:A15))を使用してみましたが可視の部分以外も
カウントしてしまうんです…
|
|