-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

このコマンドを使用すると、現在アクティブなセルの列全体にc = ActiveCell.Column設定されます。c次に、 を使用s1.Columns(c).Copy s2.Range("a2")すると、 に格納されている列全体をコピーしてcから、指定した列の範囲 ( ) の 2 番目のセルに貼り付けようとしますa2。これにより、クリップボードにコピーしたセルよりも常に 1 つ少ないセルになります。

于 2013-09-05T21:40:25.477 に答える