No.2ベストアンサー
- 回答日時:
コピー先のシート名は、Worksheets("Sheet2") になっています。
'//シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Column <> 3 Then Exit Sub 'C列以外は除外
If Target.Count > 1 Then Exit Sub '複数選択をしたら除外
If Not IsNumeric(Target.Value) Then Exit Sub '数字以外は除外
With Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp) 'シート2の最終行
If .Value <> "" Then
i = .Row + 1 '最終行が値があれば、+1行
Else
i = .Row '最初の一行目
End If
End With
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, Columns.Count).End(xlToLeft)).Copy _
Worksheets("Sheet2").Cells(i, 1)
Application.EnableEvents = True
End Sub
なお、ここの部分
Range(Cells(Target.Row, 1), Cells(Target.Row, Columns.Count).End(xlToLeft)).Copy _
は、該当セルの1列目から、右のデータがある範囲という意味です。
Target.EntireRow.Copy
と書けば簡単にはなりますが、メモリ的に負担になることを考えて、あえて、データのある範囲にしました。
なお、掲示板で製作依頼(作業依頼ではありません)というのは、人によって解釈の仕方が違いますが、私は、製作までの金銭的な価値だと思うのです。言い換えると、その回答のための拘束された時間に比例します。しかし、それ以上に、こちらは気持ち良く終わり、また質問者さんは満足していただければ十分なのです。
回答ありがとうございます。
VBAまでは書いたことがないのですが、試して見たところ出来ました。
ありがとうございました。
また、コメントもありがとうございます。それぞれの解釈があるとは思いますが、今回は質問が不躾だったのかもと少し思っています。
色々ありがとうございました。
No.1
- 回答日時:
C列にオートフィルタを設定して「空白以外」を表示させてコピーして目的の場所に貼り付ければいい。
これを順次繰り返しましょう。
・・・余談・・・
残念ながらここは「代わりに作って」という作業依頼をする場所ではありません。
自分で問題を解決できるためのアドバイスをする場所です。
そのアドバイスの中でやり方の例をあげることはあります。
具体的に何が分からないのかを質問本文、補足に書くとそれに対して具体的なアドバイスをもらえますよ。
例
問「他のシートのセルを参照する方法が分からない」
答「=シート名!セル番地 のようにして参照しましょう。=Sheet2!A1 みたいにね」
アドバイスありがとうございました。
関数でいろいろ試してたのですが、なかなか上手く出来ず。
引き続き試してみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
EXCELでコピーしたグラフのデー...
-
Excelで保護のかかったシートの...
-
ワークシートの行が途中から表...
-
シート全体を他のブックのシー...
-
Excelセルの書式設定ができない
-
ロックしたセルのコピー&貼り付け
-
【エクセル】表から条件に合っ...
-
エクセルで数式は残したまま他...
-
エクセル関数を教えてください6
-
色付きセルの合計を自動更新したい
-
Excelで大量の2000個のリストを...
-
行の挿入ができなくなった
-
Excelでハイパーリンク先の表示...
-
シート保護してても並び替えを...
-
スプレッドシートが真っ白にな...
-
エクセル シート内のデータと...
-
エクセルで打ち込んだ数字を自...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
EXCELでコピーしたグラフのデー...
-
ワークシートの行が途中から表...
-
ロックしたセルのコピー&貼り付け
-
シート全体を他のブックのシー...
-
excelで勝手にテキストボックス...
-
Excelで保護のかかったシートの...
-
エクセルで数式は残したまま他...
-
VBA アクティブでないシートの...
-
Excelで大量の2000個のリストを...
-
シート保護してても並び替えを...
-
【エクセル】数式のセル番地を...
-
シート保護したExcelへの画像貼...
-
行の挿入ができなくなった
-
worksheetクラスのcopyメソッド...
-
Excelでハイパーリンク先の表示...
-
エクセルで選択した行以外を削...
-
エクセルで打ち込んだ数字を自...
おすすめ情報