お世話になります。
1つのブックに「sheet1」と「sheet2」があります。
sheet1=転記元 (20名分のデータ)
sheet2=転記先
名前1
sheet1のセルB2:B14を → sheet2のセルE・F10:E・F22に転記 (sheet2のE・Fはセル結合)
sheet1のセルB16:B18を → sheet2のセルE・F23:E・F25に転記 ( 〃 )
sheet1のセルB19を → sheet2のセルE・F27に転記 ( 〃 )
sheet1のセルB20を → sheet2のセルE・F31に転記 ( 〃 )
名前2
sheet1のセルC2:C14を → sheet2のセルM・N10:M・N22に転記 (sheet2のM・Nはセル結合)
sheet1のセルC16:C18を → sheet2のセルM・N23:M・N25に転記 ( 〃 )
sheet1のセルC19を → sheet2のセルM・N27に転記 ( 〃 )
sheet1のセルC20を → sheet2のセルM・N31に転記 ( 〃 )
名前3
sheet1のセルD2:D14を → sheet2のセルU・V10:U・V22に転記 (sheet2のU・Vはセル結合)
sheet1のセルD16:D18を → sheet2のセルU・V23:U・V25に転記 ( 〃 )
sheet1のセルD19を → sheet2のセルU・V27に転記 ( 〃 )
sheet1のセルD20を → sheet2のセルU・V31に転記 ( 〃 )
20名分のデータを転記(for~next ループ)させたいと思います。
VBAコードをご教示いただけますと幸いです。
宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
サンプルです
Sub Sample()
Dim col1 As Long, col2 As Long
Worksheets("Sheet1").Activate
col2 = 5
With Worksheets("Sheet2")
For col1 = 2 To 21
.Cells(10, col2).Resize(13).Value = Cells(2, col1).Resize(13).Value
.Cells(23, col2).Resize(3).Value = Cells(16, col1).Resize(3).Value
.Cells(27, col2).Value = Cells(19, col1).Value
.Cells(31, col2).Value = Cells(20, col1).Value
col2 = col2 + 8
Next
End With
End Sub
回答ありがとうございました。
おかげさまで、上手くいきました。
今回問合せしたVBA以外に、作成中のデータ(Excel)があるので
参考にさせて頂きます。
お忙しいところ、本当にありがとうございました。
No.4
- 回答日時:
No2です。
No3の方の回答をみて、納得しました。名前1~名前20まで20人分あり、例として、名前1~名前3まで3人分を提示されたということですね。
No3の方の回答が理想的な回答になっていると思いますので、私からの回答は控えます。
画像の不鮮明と問い合わせと、内容の不備のご指摘ありがとうございました。№3の方の回答を参考にさせて頂きます。
お手数をお掛け致しました。
No.2
- 回答日時:
画像が不鮮明なので、レイアウトがよくわかりませんが、
転記元のセルの数は、
名前1は、B2:B14、B16:B18、B19、B20で18個です。
同様に名前2、名前3も18個です。
20名分ということですが、18名分、もしくは、18×3=54名分
ではないでしょうか。どのように計算すると20名となるのでしょうか。
このサイトは、大きな画像をアップすると不鮮明になってしまいます。
画像が不鮮明なのはあなたのせいではありませんが、2つの画像を別々にアップしていただけると、多少は鮮明になるかもしれません。
(このサイトの質問者と回答者のみなさんは、(私もふくめて)画像が不鮮明であることに悩まされています)
今回は、画像が不鮮明でも転記元と転記先のセルの位置が明記されているので、マクロの作成に影響はありませんが、20名となるのが理解できなかったので補足要求を行いました。画像の再アップは必須ではありません。
No.1
- 回答日時:
こんばんは
値の転記で良ければ、ループする必要はありません。
結合セルは範囲の左上のセルに代表される仕様になっていますので、
例えばB2:B14であれば
Worksheets("Sheet2").Range("E10:E22").Value = Worksheet("Sheet1").Range("B2:B14").Value
のような記述をすればセル範囲をまとめて転記できます。
(Copyメソッドでは上手くいきませんので、ご注意)
書式も含めてコピペなさりたい場合は、1セルずつという事になりそうですね。
その場合は、一旦セルの形状を合わせた上で再結合という手順になるでしょう。
早々に、ご回答ありがとうございました。
「Subまたはfunctionが定義されていません。」とエラーがでてしまいました。
Excelデータには名前1から名前20の20名分のデータがあるので、値転記ではなく人数分をループさせたいと思っています。
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) VBA Private Sub Worksheet_Changeで 1 2024/05/01 16:59
- Excel(エクセル) VBAにてエクセルをpdf化する方法 1 2023/03/10 16:20
- Visual Basic(VBA) VBA Userform転記のみ編集可 1 2023/06/29 11:03
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) VBAを教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 s 2 2023/11/07 12:51
- Excel(エクセル) 関数を教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 sh 3 2023/11/02 17:11
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
大人になっても苦手な食べ物、ありますか?
大人になっても、我慢してもどうしても食べれないほど苦手なものってありますよね。 あなたにとっての今でもどうしても苦手なものはなんですか?
-
「覚え間違い」を教えてください!
私はかなり長いこと「大団円」ということばを、たくさんの団員が祝ってくれるイメージで「大円団」だと間違えて覚えていました。
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら「ろうそくの数はあなたが好きな人の数です」と言われ浮気者扱いされたことをいまだに根に持っています。
-
うちのカレーにはこれが入ってる!って食材ありますか?
カレーって同じルーから作っても、家庭によって入っているものや味が微妙に違っていて面白いですよね! 「我が家のカレーにはこれが入ってるよ!」 という食材や調味料はありますか?
-
VBA コードどこがおかしいですか?
Visual Basic(VBA)
-
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
ExcelVBAマクロで実行した時の疑問
Visual Basic(VBA)
-
-
4
VBAの間違い教えて下さい
Visual Basic(VBA)
-
5
VBAコードのインデント表示
Visual Basic(VBA)
-
6
Vba ファイル書き込み時に書き込みエラーを回避する方法を教えてください
Visual Basic(VBA)
-
7
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
8
IF文、条件分岐の整理方法
Visual Basic(VBA)
-
9
時間短縮のために、テキストファイルの入出力をメモリを使って出来ないですか?
Visual Basic(VBA)
-
10
pdfファイルの複数添付 引数の型
Visual Basic(VBA)
-
11
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
12
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
13
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
14
VBAなくなるの?
Visual Basic(VBA)
-
15
Excelを無料で使うには? パソコン購入して、マイクロソフトに登録して そのままExcelがデスク
Excel(エクセル)
-
16
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
17
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
18
エクセルVBAについて
Visual Basic(VBA)
-
19
VBA一覧取得 再投稿
Visual Basic(VBA)
-
20
VBAの計算で@が出てしまう件
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・ハマっている「お菓子」を教えて!
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
Excel 入力規則のリストのカー...
-
マウスを乗せたときにセルの色...
-
クリップボードの内容を変数に...
-
JTableにおけるセルの結合について
-
Excel_VBAについて質疑です。(...
-
GridViewの行選択イベントを発...
-
【VB.NET】DataGridViewセルの...
-
エクセルの取り消し線を検出す...
-
Excel VBA コンボボックスで空...
-
Excelマクロで空白セルの大小比...
-
【VBA】セルが空白の場合に処理...
-
VBA 別ブックから条件に合うも...
-
エクセル: セルの枠を超えて表示
-
Excelで 分:秒 と表示させる...
-
EXCELで特定のセルに表示...
-
エクセル:マクロ「Application...
-
エクセルのセル内の余白の設定...
-
エクセルでの計算式で求められ...
-
エクセルのパーセンテージで、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
VBA 別ブックから条件に合うも...
-
クリップボードの内容を変数に...
-
Excel VBA コンボボックスで空...
-
Excel_VBAについて質疑です。(...
-
Excel 入力規則のリストのカー...
-
マウスを乗せたときにセルの色...
-
【VB.NET】DataGridViewセルの...
-
GridViewの行選択イベントを発...
-
複数セルに〇印をつけるマクロ
-
VBA サンダーバードのメール自...
-
エクセルの取り消し線を検出す...
-
Excelマクロで空白セルの大小比...
-
【VBA】セルが空白の場合に処理...
-
SPREADで1つのセルに複数のチ...
-
■EXCEL(二つのセルの文字列を一...
-
DataGridViewでセルを結合したい
-
VBA 文字列を1文字ずつ調べて"...
-
マクロについて質問です 範囲内...
-
エクセル チェックボックスの...
おすすめ情報