質問: ExcelのVBAについてご教授願います。
回答: 《補足について》 >B7:B10にも B2:B6はどのような意味があるのですか? B7:B10はどのような意味があるのですか? >同じように 何が何と同じなのですか? >入れたいのですが 何をどこにいれるのですか? >上記文をコピーしてつなげても つなげるとはコードを加えたということですか?どのようなコードにされたのですか? >うまくいきません。 何がどう、うまくいってないのですか? 構文エラーなのか、ランタイムエラーなのか、あるいはエラーは出ないけど意図しない動作だったのか、そもそも何がどうなってくれればよいのか、アレンジしたい部分は何なのか。 申し訳ないですが、コードをアレンジしてどのような動作をさせたいのか、説明が不足しすぎていて、お答えのしようがありません。 ============================== こんばんは。 書かれている動作に限れば、例えばこんなコード例でできます。 Sheet1のモジュールに貼り付けて下さい。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub Worksheets("Sheet2").Range("B2").Value = Range("B" & Rows.Count).End(xlUp).Value End Sub また、わざわざマクロを使わなくても、ワークシート数式でも可能です。 (B列の範囲は10000行までと仮定しています。) Sheet2!B2=INDEX(Sheet1!B1:B10000,MAX(INDEX(ROW(Sheet1!B1:B10000)*NOT(ISBLANK(Sheet1!B1:B10000)),0)),1) 個人的には、マクロを組むほどの操作ではなくて、数式で十分かと思います。