以下のコードを書きました。 カラムKを条件付きで自動フィルタリングし、データをコピーして、同じページのシートの最後、最後の行のすぐ下に貼り付けます。 エラーは発生していませんが、コードは意図したとおりに動作していません。 これはオートフィルターとコピーまで機能しますが、最後の行にデータを貼り付けません。 私は何か助けてもらえますか？ Sub Depreciation_to_Zero()
With
私は私たちが1つのフォームデータを転送する必要がある場合は、データ転送のトラフシートを同期させる必要がある変更を持つテーブルが別のシートにコピーする必要があるプロジェクトを作っているすべてのシート。 Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set
私はむしろVBAの新人です。私は次の問題を解決するために努力しています。私は通常、10-20枚のシートを使ってExcelファイルを取得します。次に、1枚のブックから同じシート構造を持つ別のブックに、すべてのシートの同じ範囲のセル（i76：i133）をコピーします。 これを簡単にコーディングするためのループを作成しようとしていますが、失敗しています。 Sub copy()
Dim Sourceb