2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

866 :名無しさん@そうだ選挙にいこう:2011/08/01(月) 15:34:03.07
>>865
ほい

Sub Macro999()
'見出しのコピー
    Range("A1:C1").Copy
    Range("D1").PasteSpecial
    Range("G1").PasteSpecial
    Range("J1").PasteSpecial
'データの移動
    全データ数 = Range("A1").End(xlDown).Row - 1
    分割後の行数 = WorksheetFunction.RoundUp(全データ数 / 4, 0)
    コピー開始行 = 分割後の行数 + 2
    For コピー先の列 = 4 To 10 Step 3
        Cells(コピー開始行, 1).Resize(分割後の行数, 3).Cut
        Cells(2, コピー先の列).Select
        ActiveSheet.Paste
        コピー開始行 = コピー開始行 + 分割後の行数
    Next
End Sub

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)