Excel VBA質問箱 IV

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

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


12158 / 76734 ←次へ | 前へ→

【70102】Re:アルファベットのソート
回答  UO3  - 11/10/15(土) 13:11 -

引用なし
パスワード
   ▼ごん さん:

>1行目は何もなし
>2行目はA列とB列が結合
>3行目からデータが入っています

では、3行目以降の処理には結合セルは関係しませんね。
うえで配列でもできると「おおぼら」をふきましたが、当方で手持ちのプロシジャは
二次元配列のソートに関して、キー列は1つだけというシロモノで、今回のように
複数列条件をカバーしていないので、取り下げさせてください。

作業列は使いますが、現在のシートにあるデータには影響を与えない形にしますし
(作業列を使っていることを意識させない方式)なんとか妥協いただけないかな?

Sub Sample2()
  Dim myA As Range
  Dim lCell As Range
  Dim z As Long
  
  Application.ScreenUpdating = False
  
  With ActiveSheet.UsedRange
    Set lCell = .Cells(.Cells.Count).Offset(, 1)
  End With
  
  Set myA = Range("A3", lCell)
  
  With myA.Columns(myA.Columns.Count)
    .Formula = "=LEN(B3)"
    .Value = .Value
  End With
  
  myA.Sort Key1:=Columns("A"), Order1:=xlAscending, _
        Key2:=lCell, Order2:=xlAscending, _
        Key3:=Columns("B"), Order3:=xlAscending, _
        Header:=xlNo
       
  lCell.EntireColumn.ClearContents
  Set myA = Nothing
  Set lCell = Nothing
  
  Application.ScreenUpdating = True
  
End Sub

4 hits

【70079】アルファベットのソート ごん 11/10/14(金) 9:21 質問
【70080】Re:アルファベットのソート ichinose 11/10/14(金) 10:09 発言
【70084】Re:アルファベットのソート ごん 11/10/14(金) 11:51 質問
【70082】Re:アルファベットのソート UO3 11/10/14(金) 10:27 回答
【70085】Re:アルファベットのソート ごん 11/10/14(金) 12:19 質問
【70089】Re:アルファベットのソート ごん 11/10/14(金) 14:41 質問
【70093】Re:アルファベットのソート UO3 11/10/14(金) 17:41 発言
【70100】Re:アルファベットのソート ごん 11/10/15(土) 10:55 質問
【70102】Re:アルファベットのソート UO3 11/10/15(土) 13:11 回答
【70131】Re:アルファベットのソート ごん 11/10/17(月) 9:31 質問
【70134】Re:アルファベットのソート UO3 11/10/17(月) 9:53 発言
【70139】Re:アルファベットのソート ごん 11/10/17(月) 10:35 お礼
【70137】Re:アルファベットのソート UO3 11/10/17(月) 10:16 回答
【70140】Re:アルファベットのソート ごん 11/10/17(月) 11:05 お礼
【70138】Re:アルファベットのソート kanabun 11/10/17(月) 10:26 発言
【70142】Re:アルファベットのソート ごん 11/10/17(月) 11:12 お礼
【70096】Re:アルファベットのソート kanabun 11/10/14(金) 20:43 発言
【70101】Re:アルファベットのソート ごん 11/10/15(土) 11:09 お礼
【70107】Re:アルファベットのソート kanabun 11/10/15(土) 19:09 発言
【70130】Re:アルファベットのソート ごん 11/10/17(月) 8:16 お礼
【70133】Re:アルファベットのソート UO3 11/10/17(月) 9:44 発言
【70135】Re:アルファベットのソート kanabun 11/10/17(月) 10:10 発言
【70188】Re:アルファベットのソート n 11/10/18(火) 23:23 発言
【70195】Re:アルファベットのソート kanabun 11/10/19(水) 10:43 発言
【70196】Re:アルファベットのソート kanabun 11/10/19(水) 11:01 発言
【70262】Re:アルファベットのソート ごん 11/10/24(月) 17:14 お礼
【70083】Re:アルファベットのソート kanabun 11/10/14(金) 11:31 発言
【70086】Re:アルファベットのソート ごん 11/10/14(金) 12:30 お礼
【70087】Re:アルファベットのソート kanabun 11/10/14(金) 13:40 発言
【70088】Re:アルファベットのソート ごん 11/10/14(金) 14:05 発言
【70090】Re:アルファベットのソート kanabun 11/10/14(金) 15:39 発言
【70091】Re:アルファベットのソート ごん 11/10/14(金) 17:00 質問
【70092】Re:アルファベットのソート kanabun 11/10/14(金) 17:15 発言
【70265】Re:アルファベットのソート ちん 11/10/24(月) 19:29 発言

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