-1

VBA で Sheet1 の "Apple" (行 a1) という名前のセル ヘッダーを見つけ、そのデータを Sheet2 の "Orange" という名前のセル ヘッダーに貼り付けます。

Sheet1     Sheet2

Apple      Orange
1
2
3
4

セルヘッダーを含めないようにしているので、番号のみを取得します。

以下のようなものは機能しますか？

Sheet1.Rows("1:1").Find(What:="Apple", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireColumn row-1.Copy sheet2.range("a2")

entirecolumn row -1ヘッダーセルをコピーしないようなもの...私
が何をしているのかわかりませんが、助けていただければ幸いです!

4

1 に答える 1

0

未テスト:

Dim rng as range, rngCopy as range, rng2 as range

set rng = Sheet1.Rows(1).Find(What:="Apple", LookIn:=xlValues, LookAt:=xlWhole)

if not rng is nothing then

    set rngCopy = Sheet1.range(rng.offset(1,0), _
                               Sheet1.cells(rows.count,rng.column).end(xlUp))

    set rng2 = Sheet2.Rows(1).Find(What:="Orange", LookIn:=xlValues, _
                                   LookAt:=xlWhole)

    if not rng2 is nothing then rngCopy.copy rng2.offset(1,0)

end if
于 2013-09-06T00:40:24.280 に答える