Excel VBA質問箱 IV

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

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


63649 / 76732 ←次へ | 前へ→

【17678】Re:文字列のカンマ区切りとワークシート表のセル並び替え
回答  Kein  - 04/9/4(土) 21:23 -

引用なし
パスワード
   すいません、行数と列数は不明なのでしたね。これでやってみて下さい。
テストはうまくいきましたが。

Sub Data_Align()
  Dim VAry As Variant, SAry As Variant
  Dim i As Long, ER As Long
  Dim x As Long, y As Long
 
  With Sheets("Sheet1")
   With .Range("A1").CurrentRegion
     x = .Columns.Count: ER = .Rows.Count
   End With
   If .Columns(x).Find("*,*", , xlValues) Is Nothing Then
     MsgBox x & " 列にカンマ区切りのデータがありません", 48
     Exit Sub
   End If
   For i = 1 To ER
     If Len(.Cells(i, x).Value) < 2 Then
      VAry = .Cells(i, 1).Resize(, x).Value
      Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1) _
      .Resize(, x).Value = VAry
     Else
      SAry = Split(.Cells(i, x).Value, ",")
      y = UBound(SAry) + 1
      VAry = .Cells(i, 1).Resize(, x - 1).Value
      With Sheets("Sheet2").Range("A65536").End(xlUp)
        .Offset(1).Resize(y, x - 1).Value = VAry
        .Offset(1, x - 1).Resize(y).Value = _
        WorksheetFunction.Transpose(SAry)
      End With
      Erase SAry
     End If
   Next i
  End With
End Sub

0 hits

【17647】文字列のカンマ区切りとワークシート表のセル並び替え しん 04/9/4(土) 0:13 質問
【17650】Re:文字列のカンマ区切りとワークシート表... Kein 04/9/4(土) 1:08 回答
【17670】Re:文字列のカンマ区切りとワークシート表... しん 04/9/4(土) 19:07 質問
【17673】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 19:37 回答
【17676】Re:文字列のカンマ区切りとワークシート表... しん 04/9/4(土) 20:36 質問
【17677】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 20:55 回答
【17681】Re:文字列のカンマ区切りとワークシート表... しん 04/9/4(土) 21:57 質問
【17682】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 22:18 発言
【17683】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 22:41 回答
【17684】Re:文字列のカンマ区切りとワークシート表... Kein 04/9/4(土) 22:50 回答
【17685】Re:文字列のカンマ区切りとワークシート表... Kein 04/9/4(土) 22:56 回答
【17686】Re:文字列のカンマ区切りとワークシート表... Kein 04/9/4(土) 23:00 発言
【17687】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 23:08 発言
【17688】Re:文字列のカンマ区切りとワークシート表... Kein 04/9/4(土) 23:42 発言
【17690】Re:文字列のカンマ区切りとワークシート表... Kein 04/9/4(土) 23:48 回答
【17691】Re:文字列のカンマ区切りとワークシート表... しん 04/9/4(土) 23:59 お礼
【17678】Re:文字列のカンマ区切りとワークシート表... Kein 04/9/4(土) 21:23 回答
【17654】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 11:30 回答
【17671】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 19:25 回答
【17674】Re:文字列のカンマ区切りとワークシート表... しん 04/9/4(土) 19:58 質問
【17675】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 20:29 回答
【17680】Re:文字列のカンマ区切りとワークシート表... かみちゃん 04/9/4(土) 21:30 回答
【17692】Re:文字列のカンマ区切りとワークシート表... しん 04/9/5(日) 0:04 お礼
【17672】Re:文字列のカンマ区切りとワークシート表... しん 04/9/4(土) 19:36 質問

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