Excel VBA質問箱 IV

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

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


9966 / 76736 ←次へ | 前へ→

【72325】Re:セルの移動コピー(行指定付き)
発言  UO3  - 12/7/12(木) 14:53 -

引用なし
パスワード
   ▼マリモ さん:

たぶん、勘違いはもうないと思いますが(?)
1行目の年齢はC列から横にあるという前提です。

Sub Sample2()
  Dim x As Long
  Dim y As Long
  Dim i As Long
  Dim j As Long
  Dim k As Long
  Dim z As Long
  Dim aCode As String
  Dim aName As String
  Dim mf As String
  Dim w() As Variant
  
  With Sheets("Sheet1")
  
    y = .Range("A" & .Rows.Count).End(xlUp).Row
    x = .Cells(1, .Columns.Count).End(xlToLeft).Column
    ReDim w(1 To .Rows.Count, 5)
    
    For i = 2 To y Step 2
      aCode = .Cells(i, "A").Value
      aName = .Cells(i + 1, "A").Value
      For z = i To i + 1
        mf = .Cells(z, "B").Value
        For j = 3 To x
          k = k + 1
          w(k, 1) = aCode
          w(k, 2) = aName
          w(k, 3) = mf
          w(k, 4) = .Cells(1, j).Value  '1行目の年齢
          w(k, 5) = .Cells(z, j).Value  'このデータの人数
        Next
      Next
    Next
    
  End With
  
  With Sheets("Sheet2")
    .Cells.ClearContents
    .Range("A1").Resize(k, UBound(w, 2)).Value = w
    .Select
  End With
  
  MsgBox "組み換え終了です"
  
End Sub

0 hits

【72310】セルの移動コピー(行指定付き) マリモ 12/7/11(水) 11:05 質問
【72311】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 11:26 発言
【72312】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 12:06 発言
【72313】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 12:30 発言
【72314】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 13:15 発言
【72315】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 13:29 発言
【72316】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 14:26 発言
【72317】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 16:29 発言
【72318】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 17:09 発言
【72319】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 20:31 発言
【72320】Re:セルの移動コピー(行指定付き) マリモ 12/7/12(木) 9:42 発言
【72321】Re:セルの移動コピー(行指定付き) UO3 12/7/12(木) 10:01 発言
【72325】Re:セルの移動コピー(行指定付き) UO3 12/7/12(木) 14:53 発言
【72326】Re:セルの移動コピー(行指定付き) マリモ 12/7/12(木) 16:09 発言
【72330】Re:セルの移動コピー(行指定付き) UO3 12/7/12(木) 18:35 発言
【72333】Re:セルの移動コピー(行指定付き) マリモ 12/7/13(金) 9:05 発言
【72335】Re:セルの移動コピー(行指定付き) UO3 12/7/13(金) 11:05 発言
【72336】Re:セルの移動コピー(行指定付き) マリモ 12/7/13(金) 11:20 お礼

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