Excel VBA質問箱 IV

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

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


9435 / 76732 ←次へ | 前へ→

【72859】Re:列ごとに別シートを追加し、データをコピーしたい
発言  UO3  - 12/9/25(火) 17:38 -

引用なし
パスワード
   ▼おにこ さん:

要件を誤解していたらごめんなさい。


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 お礼

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