• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:他のシートの任意の列に1行おきに表示する)

他のシートにデータを表示する方法

このQ&Aのポイント
  • VBAを使用して、Worksheets("入力")の3列目5行目以降のデータをSheet2の同じ列(3列目)5行目以降に1行おきに表示する方法について説明します。
  • 質問文章のコードの解説:Worksheet_SelectionChangeイベントが発生した際に、Worksheets("入力")の3列目5行目以降のデータをSheet2の同じ列(3列目)5行目以降に1行おきに表示しています。
  • 質問文章の要約解答:Worksheets("入力")の3列目5行目以降のデータをSheet2の7列目5行目以降に1行おきに表示するには、jの値を7に変更すれば良いです。

質問者が選んだベストアンサー

  • ベストアンサー
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.1

自分でコードを書いたなら、質問がピンポイントになりそうですが・・・ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long, j As Long j = 5 With Worksheets("入力") For i = 5 To .Cells(Rows.Count, 3).End(xlUp).Row .Range(.Cells(i, 3), .Cells(i, 20)).Copy Worksheets("Sheet2").Cells(j, 7) j = j + 2 Next i End With End Sub 変更箇所は2つ よーく見比べてみてください

1211M
質問者

お礼

お礼を書き込むのを忘れていました。 すみません  hige_082さん ありがとうございました。

関連するQ&A

専門家に質問してみよう