Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1086 / 76732 ←次へ | 前へ→

【81303】別シートへ転記したい場合
質問  [名前なし]  - 20/5/27(水) 19:43 -

引用なし
パスワード
   現在 シート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))を使用してみましたが可視の部分以外も
カウントしてしまうんです…
81 hits

【81303】別シートへ転記したい場合 [名前なし] 20/5/27(水) 19:43 質問[未読]
【81307】Re:別シートへ転記したい場合 マナ 20/5/28(木) 19:41 発言[未読]
【81311】Re:別シートへ転記したい場合 [名前なし] 20/5/29(金) 13:20 お礼[未読]
【81312】Re:別シートへ転記したい場合 マナ 20/5/29(金) 18:55 発言[未読]
【81314】Re:別シートへ転記したい場合 [名前なし] 20/6/1(月) 16:11 お礼[未読]
【81318】Re:別シートへ転記したい場合 マナ 20/6/2(火) 20:52 発言[未読]
【81323】Re:別シートへ転記したい場合 [名前なし] 20/6/3(水) 16:23 お礼[未読]

1086 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free