0

VBA for Excel で足を濡らしただけです。同様の問題を探し回りましたが、これとまったく同じものは見つかりませんでした。

かなり単純な問題。いくつかのデータがあり、行の一部をシートの別の場所にコピーしたいと考えています。まだ画像を投稿できるとは思わないので、次のようにします。

 Column A     Column B     Column C
 product1        1          #VALUE!
 product2        4            100
 product3        22            25
 product4        0             3

コピーしたい行は、列 C が 5+ の行です。したがって、この場合は 3 行目と 4 行目です。それが役立つ場合、行の総数は常に同じでなければなりません。

これらの行を選択する最良の方法は何かと考えているだけで、VBA でコピーと貼り付けを行うことができます。x を列番号として Do ループを試し、>4" であることを確認しましたが、動作しません。

どうもありがとう！

4

1 に答える 1

0

それについて行く方法はたくさんあります。ここに1つあります：

Sub Macro1()

Dim LR As Long

LR = ActiveSheet.UsedRange.Rows.Count
    Range("A1:C1").Range("$A$1:$C$" & LR).AutoFilter Field:=3, Criteria1:=">4", _
        Operator:=xlAnd
    Range("A1:C" & LR).SpecialCells(xlCellTypeVisible).Copy Destination:=Range("L1")
    Range("A1:C1").Range("$A$1:$C$" & LR).AutoFilter
End Sub

目的地の範囲を調整してください。

于 2013-04-25T17:27:54.103 に答える