複数の列を並べ替えてから0/1でフィルタリングする必要があるデータがあるので、単にシートを使用して、実行した列アドレスを探してください。 Dim ColName1 As Variant
Set ColName1 = sht.Cells.Find("name of column").Address
これはsortコマンドの一部に使用できますが、別のVarientまたはString = Left
現在、以下のVBAを使用していますが、それを少し上回る必要があります。 Option Explicit
Sub AutoFilterData()
Dim wsData As Worksheet
Set wsData = ThisWorkbook.Worksheets("Master")
With wsData
On Error Resume Next
'//Reset
私はテーブルを通り、残りのコードで使用されるCol 5から値が欲しい値（ "ref"）を選ぶマクロを持っています。私は必要なもの Dim Lobj As ListObject
Set Lobj = SourceBk.Sheets("RefSheet2_x").ListObjects("Table1")
For x = 1 To Lobj.DataBodyRange.Rows.Count
以下のコードを書きました。 カラムKを条件付きで自動フィルタリングし、データをコピーして、同じページのシートの最後、最後の行のすぐ下に貼り付けます。 エラーは発生していませんが、コードは意図したとおりに動作していません。 これはオートフィルターとコピーまで機能しますが、最後の行にデータを貼り付けません。 私は何か助けてもらえますか？ Sub Depreciation_to_Zero()
With