2011-04-28 12 views
1

私は自分のためにExcelドキュメントを開発していますが、私は本当に多くのVBAを知っているわけではありませんが、私はおそらくそれが私が働きたいものを得るために必要なことを理解しています:) :)Excel 2010:セルB1が隣接するセル(A1またはC1)の内容を別のセルに追加するとき

私が必要とするのは、例えば、 Excelに隣接するセルの内容(A1またはC1)を取り込み、別のシートの行の次の空白セルにを複製/貼り付け/コピーします。

私はそれが柔軟性があることが望ましいと思うので、何百ものセルに必要とされるので、私はそれをB2のために単純に複製することができます(そして、それはA2またはC2に適用されます)全体の痛みになります。私は実際にフォームやチェックボックスを使用したくない...

ありがとう!, ルーク。

+1

そう...あなたは「壁にぶつかる」しましたが、あなたは上や周りを取得するために多くの努力を入れていませんそれは、あなたですか? – mjv

+0

'Range.offset'の使用については、[回答](http://stackoverflow.com/questions/4626775/how-to-get-address-of-adjacent-cell/4627007#4627007) – jonsca

+1

@mjvを参照してください。うわー、そのsnarkyコメントに値するために私は何をしましたか?私はVBAの知識が限られているからですか?私はこのサイトの初心者ですから?それらのどれも私のような私を打ちのめす正当な理由をあなたに与えません。 「私は壁にぶつかったし、特定のGoogle検索用語を使ってインターネットを検索して検索し、既にExcelでVBAなしでさまざまな手段を試していた」と書くこともできましたが、それはポイントの横にあるでしょう。私の質問の妥当性に役立ちます。私はいいことを試みた。私は答えのためにここに来ました、議論ではありません。 : –

答えて

0

たぶん私はあなたの質問を誤解が、私はこのようにそれについて移動したい:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Dim WS As Worksheet: Set WS = Worksheets(2) 
    Dim adjacent As Range: Set adjacent = Target.Offset(0, 1) 
    WS.Range(adjacent.Address).Value = adjacent.Value 
End Sub 
関連する問題