重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

【6/2終了】教えて!gooアプリ版

エクセルVBA 4行飛ばしで転記するループ処理

解決済

  • 質問者：かなすび
  • 質問日時：
  • 回答数：2件

シート1のA101からA217まで、4行おきのデータ（文字）をコピー
別シートのB9からB38まで順番に転記するループを教えてください。
よろしくお願いします。

質問者からの補足コメント

  • シート1のＢ列には同じく101行から217行までデータがあり、
    これを4点おきに、シート2のD列に順番に転記する場合は別のサブルーチン
    にした方がよいのでしょうか？
    　Qchan1962さんの回答を応用すれば、自分でもできそうです。
    ちなみに、データは全部でＡ、Ｂ、Ｃ、Ｄ列にあります。

    No.1の回答に寄せられた補足コメントです。 補足日時：2020/04/24 08:53
    通報する
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.1ベストアンサー

  • 回答者： Qchan1962
  • 回答日時：

こんな感じですか？


Sub Sample()
Dim i As Long, j As Long
j = 9
For i = 101 To 217 Step 4
Sheets("別シート").Range("B" & j).Value = Sheets("シート1").Range("A" & i).Value
j = j + 1
Next
End Sub
この回答への補足あり
    • good
    • 3
    • 件
通報する

No.2

  • 回答者： fujillin
  • 回答日時：

こんにちは



別案です。

Sub Sample()
With Worksheets("シート1").Range("B9:B38")
　.FormulaLocal = "=INDEX(別シート1!A:A,ROW()*4+65)&"""""
　.Value = .Value
End With
End Sub
    • good
    • 0
    • 件
通報する
この回答へのお礼

早速、ご回答ありがとうございました。
私のやり方が悪いのか、うまく行きませんでした。
すみません。

通報する
お礼日時：2020/04/24 08:57

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報