質問です。図のように科目名毎にデータが並んでいます。例えば「現金」の部分の赤枠をシート「現金」に貼り付けたいのです。ただし、この科目が100程あり、三つくらいでしたら、やり方はネットでみつけましたが、100もある場合は、VBAを100シート名を書くことになり大変です。
よって、カラムB (B i *i を変数として)の名前がシート名と一致したもののrange (C:H) (Ci:Hi *iを変数として)をコピーしていくとするには どうすればよろしいでしょうか?
宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんばんは!
https://oshiete.goo.ne.jp/qa/10779762.html
↑のサイトとは別の質問で良いのですね?
単純にループさせてみてはどうでしょうか?
↓の画像のようにSheet見出しの2番目以降には、「科目名」が入っているシートが存在している!という前提です。
標準モジュールです。
Sub Sample1()
Dim i As Long, sN As String
Application.ScreenUpdating = False
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(i, "C") <> "" Then
sN = .Cells(i, "B")
.Cells(i, "C").Resize(, 6).Copy Worksheets(sN).Cells(Rows.Count, "A").End(xlUp).Offset(1)
End If
Next i
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub
こんな感じではどうでしょうか?m(_ _)m
引き続きご回答くださりありがとうございました。
やってみたのですが、3シートくらいにはデータは飛びましたが、あとはいきませんでした。シート名も同じにしているはずですが、こちらの何かが問題なのだと思います。
またトライしたいと思います。難しいですね~
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルVBAでエラー!
-
エクセルでブック内の倍率がバ...
-
エクセル、特定のシートにパス...
-
ハイパーリンクでジャンプした...
-
エクセルのシート連番の振り直し
-
Accessのテーブルを既存のExcel...
-
特定のシートのみ再計算させな...
-
エクセルマクロでシート名を条...
-
エクセルの2つのシートを並び...
-
EXCELの図形(テキストボックス)...
-
エクセルで、シートの名前を変...
-
Excelで条件に一致したものだけ...
-
指定したシート名以外を非表示...
-
エクセルのシー名を二段表示に...
-
【ExcelVBA】マクロの入ったシ...
-
Excel 全シート上のボタンを削...
-
ワークシートそのものの色を変...
-
エクセル、別のシートの表をポ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
ハイパーリンクでジャンプした...
-
エクセルでブック内の倍率がバ...
-
エクセルで複数のシートに画像...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
EXCELの図形(テキストボックス)...
-
エクセルのシート連番の振り直し
-
ワークシートそのものの色を変...
-
エクセルの2つのシートを並び...
-
エクセルのシー名を二段表示に...
-
エクセル、特定のシートにパス...
-
Accessのテーブルを既存のExcel...
-
Wordで差し込み印刷時に表示す...
-
EXCELで存在しないシート...
-
自分だけの辞書(データベース...
-
accessへエクセルの複数のシー...
-
Excelでマクロ設定したが反映さ...
-
エクセルの複数シートでのリン...
-
エクセル2003で、複数のシート...
おすすめ情報