Excel VBA質問箱 IV

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

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


13527 / 76732 ←次へ | 前へ→

【68708】Re:集計表を分解するには
回答  UO3  - 11/4/9(土) 12:25 -

引用なし
パスワード
   ▼からす さん:

こんにちは
たえば、

Sub Sample()
  Dim v As Variant
  Dim w() As Variant
  Dim i As Long, j As Long, k As Long
  With Sheets("Sheet1")
    v = .Range("A1").CurrentRegion.Offset(1).Value
    ReDim w(1 To WorksheetFunction.Sum(.Columns("C")), 1 To 3)
  End With
  
  For i = LBound(v, 1) To UBound(v, 1)
    For j = 1 To v(i, 3)
      k = k + 1
      w(k, 1) = v(i, 1)
      w(k, 2) = v(i, 2)
      w(k, 3) = j
    Next
  Next
  
  With Sheets("Sheet2")
    .UsedRange.ClearContents
    .Range("A1:C1").Value = Array("No", "種類", "カウントダウン")
    .Range("A2").Resize(UBound(w, 1), UBound(w, 2)).Value = w
  End With
    
End Sub

1 hits

【68704】集計表を分解するには からす 11/4/9(土) 10:36 質問
【68708】Re:集計表を分解するには UO3 11/4/9(土) 12:25 回答
【68713】Re:集計表を分解するには からす 11/4/9(土) 15:49 お礼
【68709】Re:集計表を分解するには UO3 11/4/9(土) 12:29 発言
【68714】Re:集計表を分解するには からす 11/4/9(土) 15:54 お礼

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