Excel VBA質問箱 IV

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

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


37177 / 76732 ←次へ | 前へ→

【44729】Re:グループ分け
回答  Kein  - 06/11/30(木) 13:53 -

引用なし
パスワード
   いろいろなロジックが考えられますが、私も一例を提示してみます。

Sub Test_Split_Data()
  Dim i As Long, Cnt As Long, MyCnt As Long
  Dim C As Range
 
  Application.ScreenUpdating = False
  With Range("A1", Range("A65536").End(xlUp))
   Cnt = WorksheetFunction.CountIf(.Cells, "TEXT")
   .Cells(1).Resize(, Cnt).Value = "TEXT"
   With .Offset(, 255)
     .Formula = "=IF($A1=""TEXT"","""",$A1)"
     .Value = .Value
     For Each C In .SpecialCells(2).Areas
      i = i + 1: If i = 1 Then MyCnt = C.Count + 1
      Cells(2, i).Resize(C.Count).Value = C.Value
     Next
     .ClearContents
   End With
  End With
  Range(Range("A1").Offset(MyCnt), Range("A65536").End(xlUp)) _
  .ClearContents
  Application.ScreenUpdating = True
End Sub

1 hits

【44725】グループ分け 関西人 06/11/30(木) 10:43 質問
【44726】Re:グループ分け Jaka 06/11/30(木) 11:11 発言
【44731】訂正 Jaka 06/11/30(木) 14:11 発言
【44729】Re:グループ分け Kein 06/11/30(木) 13:53 回答
【44730】Re:グループ分け ハチ 06/11/30(木) 14:01 回答

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