0

これは非常に基本的な質問ですが、検索機能を使用しても答えを見つけることができませんでした。

にworksheet値Total Settled DepositsとSuccessful Deposits両方を含む がありcolumn Bますが、値の間に送信される情報に応じて、値の行番号が変わります。

VBAこれを行うコードを書きたいと思います: TotalSettled DepositsセルとSuccessful Depositscell の間の範囲を newに返しworksheetます。

たとえば、Total Settled Depositsが cellB:12にありSuccessful Deposits、B:7にある場合、 range の値を返しますB7:P13。というタイトルの新しいワークシートに値が返されるようにしたいと思いますabc。

4

2 に答える 2

0

これを行うだけでVBAは必要ありません。abc という名前の新しいシートを追加し、B1 に次の式を追加します。

=IF(AND(ROW()>=MATCH("Successful Deposits",Sheet1!B:B,0),ROW()<=MATCH("Total Settled Deposits",Sheet1!B:B,0)),Sheet1!B1,"")

そして、それを下にドラッグします。他のシートの一致するセルを除いて、列 B はすべて空白のままになります。

于 2013-10-18T16:23:57.853 に答える
0

これを試してください：

Sub Zero()
    Set r1 = Range("B:B").Find(what:="Successful Deposits")
    Set r2 = Range("B:B").Find(what:="Total Settled Deposits")
    Set r3 = Range(r1, r2)
    addy = r3.Address
    Worksheets.Add
    ActiveSheet.Name = "abc"
    r3.Copy Range(addy)
End Sub
于 2013-10-18T16:31:58.943 に答える