Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9426 / 76732 ←次へ | 前へ→

【72868】Re:列ごとに別シートを追加し、データをコピーしたい
お礼  おにこ  - 12/9/26(水) 10:14 -

引用なし
パスワード
   ▼UO3 さん:おはようございます。
早急に回答していただきありがとうございます。
これを元に勉強させていただきます。
やりたい事が出来ました!
本当にありがとうございました!!

>▼おにこ さん:
>
>要件を誤解していたらごめんなさい。
>
>
>Sub Sample1()
>  Dim x As Long
>  Dim z As Long
>  Dim n As Long
>  Dim sh As Worksheet
>  Dim colP As Variant
>  Dim colW As Variant
>  
>  Application.ScreenUpdating = False
>  
>  Set sh = Sheets("Sheet1")  '元シート
>  z = sh.UsedRange.Cells(sh.UsedRange.Cells.Count).Row
>  
>  colP = sh.Columns("P").Resize(z).Value
>  colW = sh.Columns("W").Resize(z).Value
>  
>  n = Sheets.Count
>  Sheets.Add after:=Sheets(Sheets.Count), Count:=34
>  
>  For x = 1 To 34
>    With Sheets(n + x)
>      .Range("A1").Resize(z).Value = colP
>      .Range("B1").Resize(z).Value = colW
>      .Range("C1").Resize(z).Value = sh.Columns(x).Resize(z).Value
>      .Name = sh.Cells(1, x).Value
>    End With
>  Next
>  
>  Application.ScreenUpdating = True
>  MsgBox "転記終了"
>  
>End Sub
2 hits

【72858】列ごとに別シートを追加し、データをコピーしたい おにこ 12/9/25(火) 16:52 質問
【72859】Re:列ごとに別シートを追加し、データをコ... UO3 12/9/25(火) 17:38 発言
【72868】Re:列ごとに別シートを追加し、データをコ... おにこ 12/9/26(水) 10:14 お礼

9426 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free