
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#1です。
再度見たら、コピー範囲の判断部分にミスがあることに気が付きました。
申し訳ありませんが、訂正しておきます。m(__)m
誤 While sRange.Row < maxRow
↓ ↓ ↓
正 While sRange.Row <= maxRow
(もとのままだと、最後の行が対象に該当してもコピーされないですね)
No.1
- 回答日時:
こんにちは
元シートの1行目を別シートの1行目に、3行目を6行目に、5行目を11行目に・・・
という意味で良いのでしょうか?
まぁ、2行目から始めるとかいろいろありそうな気がしますので、調整しやすい以下のような方法ではいかがでしょうか?
Sub Sample()
Dim sRange As Range, dRange As Range
Dim maxRow As Long
Const sStep = 2 '元シートの飛ばす行+1
Const dStep = 5 'コピー先の飛ばす行+1
'コピー元の最初の対象となる行
Set sRange = Worksheets("Sheet1").Rows(1)
'コピー先の最初の対象となる行
Set dRange = Worksheets("Sheet2").Rows(1)
'コピー元の最終行を取得(仮にA列)
maxRow = sRange.Worksheet.Cells(Rows.Count, 1).End(xlUp).Row
While sRange.Row < maxRow
sRange.Copy Destination:=dRange
Set sRange = sRange.Offset(sStep, 0)
Set dRange = dRange.Offset(dStep, 0)
Wend
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
-
4
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
5
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
6
範囲指定したセルを1つずつ飛ばす方法
Visual Basic(VBA)
-
7
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
8
EXCEL(VBA)で1行おきに行を選択する方法
Excel(エクセル)
-
9
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
10
エクセル VBA 指定の範囲内をコピー 複数行あけて貼り付けを指定範囲内で
Excel(エクセル)
-
11
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
12
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
13
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
14
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
17
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
18
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
19
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
20
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 関数を使ってデータと一...
-
Excelの行をコピーして貼り付け...
-
エクセルの選択範囲以外を削除...
-
EXCELのVBAでシートコピーをし...
-
エクセルVBA 1行飛ばしで転記す...
-
【VBA】コピー&複数個所のペー...
-
EXCELで別のブックから式をコピ...
-
エクセルでシートを「移動また...
-
Excel シートのコピーの際、ペ...
-
ページの設定を別シートにコピ...
-
Excel 数式の保護をしたセルを...
-
【エクセル】プルダウン設定の...
-
アクセスの画面をプリントスク...
-
Excel Selectは使わない? VBA
-
ExcelのVBAで、application.inp...
-
連続しないセルへの貼り付け方法
-
シートをコピーするとテキスト...
-
VBA シートをコピー後、ボタン...
-
EXCEL2007でシートをコピーする...
-
シートが保護されていないのに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの行をコピーして貼り付け...
-
Excel 関数を使ってデータと一...
-
エクセルの選択範囲以外を削除...
-
EXCELのVBAでシートコピーをし...
-
EXCELで別のブックから式をコピ...
-
【エクセル】プルダウン設定の...
-
エクセルでシートを「移動また...
-
ExcelVBAで、ユーザーフォーム...
-
Excel 数式の保護をしたセルを...
-
エクセルの1シートの内容を複...
-
EXCEL2007でシートをコピーする...
-
PDFファイルをコピーしてエクセ...
-
CSVファイルについて質問です。
-
ページの設定を別シートにコピ...
-
エクセルシートを別のエクセル...
-
Excel シートのコピーの際、ペ...
-
【VBA】コピー&複数個所のペー...
-
VBA シートをコピー後、ボタン...
-
EXCEL VBA シートをコピーする...
-
エクセルVBA 1行飛ばしで転記す...
おすすめ情報