[[20221126000240]]　『step の機能をうまく相殺できない』（八家）　ページの最後に飛ぶ

『step の機能をうまく相殺できない』（八家）

～sheet1～

～sheet2～

  A	B	C
1 a	b	c	
2			
3

いつもお世話になっております。
再度質問したく投稿しました。
上記のようなシートが2枚あるとします。
特徴的なのが、シート１にはデータが1セル毎に飛んでいるということです。
これをボタンを押して、上記のように、シート2に、すきまなくコピーしたいと考えているのですが、うまくマクロが書けません。
以下、コード。

：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：
Sub ボタン1_Click()
Sub ボタン1_Click()

    Set ws1 = Sheets("sheet1")
    Set ws2 = Sheets("sheet2")
    Dim i As Integer

    For i = 1 To 1000 Step 1
                    ws2.Cells(2, i).Value = ws1.Cells(i, 1).Value

    Next i

End Sub

：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：

確かに一回目はいいのですが、2回目以降はこのステップ＋１処理が邪魔して、実際は、シート2においても一つとびになってしまいます。
2回目以降のstepの＋１を打ち消し方がどうしてもだめでした。
すいませんが、ご教授をお願いいたします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

変化させていく数値を並べて書き出します。

 Sheet1の行番号   1  3  5  7  9  11 ・・・
 Sheet2の列番号   1  2  3  4  5   6 ・・・

両方から1を引くと

 Sheet1の行番号から1引いた数   0  2  4  6  8  10 ・・・
 Sheet2の列番号から1引いた数   0  1  2  3  4   6 ・・・

規則性が見つかりませんか？

 Sheet1の行番号＝Sheet2の列番号✕2-1

です
（ひんと） 2022/11/26(土) 01:41:04

 変数をケチらずに使いましょう。

 Sub ボタン1_Click()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim i As Long, j As Long

    Set ws1 = Sheets("sheet1")
    Set ws2 = Sheets("sheet2")
    For i = 1 To 1000 Step 2
        j = j + 1
        ws2.Cells(1, j).Value = ws1.Cells(i, 1).Value
    Next i
 End Sub

（確認） 2022/11/26(土) 05:17:00

空白行以外でフィルターをかけて、行列を入れ替えて貼り付け

 Sub test()
     Dim ws1 As Worksheet, ws2 As Worksheet
     Dim LastR As Long
     Set ws1 = Sheets("sheet1")
     Set ws2 = Sheets("sheet2")
     ws1.Rows(1).EntireRow.Insert    'フィルターのための見出し行挿入
     LastR = ws1.Cells(Rows.Count, 1).End(xlUp).Row
     With ws1.Range("A1")
         .Value = "見出し"
         .Resize(LastR).AutoFilter 1, "<>"   '空白以外を抽出
         .CurrentRegion.Offset(1, 0).Resize(LastR - 1).Copy
         ws2.Range("A1").PasteSpecial xlPasteValues, Transpose:=True     '行列を入れ替えて貼り付け
         .AutoFilter
         .EntireRow.Delete   '見出し行削除
     End With
 End Sub
（フォーキー） 2022/11/26(土) 07:25:45

 >ws1.Rows(1).EntireRow.Insert 
 ws1.Rows(1).Insert
 に修正してください。
（フォーキー） 2022/11/26(土) 07:58:02

皆様　ご教授ありがとうございます。
・ヒント様　確かに法則性がありました。ありがとうございます。
・確認様　変数をもう一個使えばよかったんですね、こんな使い方があるとは・・ありがとうございます。
・フォーキー様　ここまで細かくコードを作っていただきありがとうございます。行列の入れ替えという発想が生まれませんでした。
　お三方、本当にありがとうございました。

（八家） 2022/11/26(土) 08:42:39

コメント返信：

[ 一覧(最新更新順) ]

[[20221126000240]] 『step の機能をうまく相殺できない』（八家） ページの最後に飛ぶ

[[20221126000240]]　『step の機能をうまく相殺できない』（八家）　ページの最後に飛ぶ