Excel VBA質問箱 IV

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

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


31886 / 76734 ←次へ | 前へ→

【50091】Re:並び替え
回答  意地悪ばばぁ  - 07/7/8(日) 16:06 -

引用なし
パスワード
   こんな感じでできるのでは・・・

シートの状態
  a    b
1 項目1
2 数字
3 数字
4 数字

:数字とa
:数字とb
 
こんなレイアウトかと思いますが・・・
b列をマクロの作業列として使いますが(邪魔だったら他の作業列を使って
ください)
マクロの基本は数字に全て「0」をつけていきます。
5aは50です、5bも50です。
そしてB列でソート掛けて、B列削除・・・

Dim LastCell As Range
 Dim c As Range
 Dim cntBumon As Integer
 cntBumon = Range("A1", Cells(1, Cells.Columns.Count).End(xlToLeft)).Columns.Count

 Set LastCell = Cells(Cells.Rows.Count, 1).End(xlUp)
 For Each c In Range("A2", LastCell)
  If Right(c.Value, 1) = "a" Or Right(c.Value, 1) = "b" Then
   c.Offset(, cntBumon).Value = Mid(c.Value, 1, Len(c.Value) - 1) & "0"
   
  Else
   c.Offset(, cntBumon).Value = c.Value & "1"
  End If
 Next
 Range("A1", LastCell).Resize(, cntBumon + 1).Sort Key1:=Cells(2, cntBumon + 1), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin
 Range("A1", LastCell).Offset(, cntBumon).ClearContents


 

3 hits

【50078】並び替え 無糖 07/7/8(日) 7:13 質問
【50079】Re:並び替え マクロマン 07/7/8(日) 8:16 発言
【50087】Re:並び替え 無糖 07/7/8(日) 10:59 お礼
【50088】Re:並び替え 無糖 07/7/8(日) 11:04 質問
【50090】Re:並び替え 07/7/8(日) 15:51 回答
【50091】Re:並び替え 意地悪ばばぁ 07/7/8(日) 16:06 回答
【50092】Re:並び替え 意地悪ばばぁ 07/7/8(日) 16:25 発言
【50135】Re:並び替え 無糖 07/7/11(水) 7:12 お礼

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