Excel VBA質問箱 IV

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

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


56176 / 76732 ←次へ | 前へ→

【25314】Re:重複データを一行にまとめる
回答  だるま WEB  - 05/5/27(金) 21:52 -

引用なし
パスワード
   こんにちは

以前同様の質問に答えた時のコードがありましたのでよろしければどうぞ。^d^

条件
・元データはアクティブシートのA1から
(A列で並べ替えがされている。これがNGならボツですが。)
・出力先は新規シートを挿入してそこに

Sub 縦横並べ替え()
  Dim myRange As Range
  Dim Key As Variant
  Dim myCell As Range
  Dim myVal As Variant
  Dim rngDest As Range
  
  Set myRange = Range("A1").CurrentRegion
  Set rngDest = Worksheets.Add.Range("A1")
  
  Key = ""
  For Each myCell In myRange.Columns(1).Cells
    myVal = myCell.Offset(, 1).Value
    If myCell.Value <> Key Then
      Key = myCell.Value
      Set rngDest = rngDest.Offset(1)
      With rngDest
        .Value = Key
        .Offset(, 1).Value = myVal
      End With
    Else
      With rngDest
        .End(xlToRight).Offset(, 1).Value = myVal
      End With
    End If
  Next
  
  Set myRange = Nothing
  Set myCell = Nothing
  Set rngDest = Nothing
  
End Sub

0 hits

【25308】重複データを一行にまとめる さくら 05/5/27(金) 14:41 質問
【25310】Re:重複データを一行にまとめる Hirofumi 05/5/27(金) 19:49 回答
【25312】Re:重複データを一行にまとめる ponpon 05/5/27(金) 20:31 発言
【25314】Re:重複データを一行にまとめる だるま 05/5/27(金) 21:52 回答
【25369】Re:重複データを一行にまとめる さくら 05/5/30(月) 9:21 お礼

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