Excel VBA質問箱 IV

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

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


48293 / 76732 ←次へ | 前へ→

【33375】Re:並び替えについて
発言  ichinose  - 06/1/9(月) 22:16 -

引用なし
パスワード
   こんばんは。

>ちょっと教えていただきたいのですが。
>平様の並び替えでは項目が書かれていないので、問題なく動作しますが
>例えば
>
>  A     B    C  
>5 項目1  項目2
>6  7324   56
>7  7324C   38 
>8  6028   99
>9  16028C  48
>
> のような状態の場合は
これは、5行目が項目名で6行目からデータが入っているということですね!!
項目名がある場合はSortメソッドでそのように指定すればよいですよ!!
前投稿のコードをちょっとだけ変更して・・・、

'======================================================
Sub test2()
  Dim col As Long 'データが入力されている最右列番号
  col = Cells(5, Columns.Count).End(xlToLeft).Column
  Set rng = Range("a6", Cells(Rows.Count, 1).End(xlUp))
  With rng.Offset(0, col)
    .Formula = "=a6&"""""
  End With
  With Range("A5").CurrentRegion
    .Sort Key1:=Cells(5, col + 1), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
    :=xlPinYin
  End With
  rng.Offset(0, col).Value = ""
End Sub

確認してみて下さい
0 hits

【33289】並び替えについて 06/1/7(土) 15:02 質問
【33295】Re:並び替えについて かみちゃん 06/1/7(土) 18:03 発言
【33296】Re:並び替えについて ichinose 06/1/7(土) 18:32 発言
【33373】Re:並び替えについて Hirok 06/1/9(月) 21:36 質問
【33374】Re:並び替えについて かみちゃん 06/1/9(月) 21:50 発言
【33375】Re:並び替えについて ichinose 06/1/9(月) 22:16 発言
【33377】Re:並び替えについて Hirok 06/1/10(火) 10:29 お礼
【33400】Re:並び替えについて ichinose 06/1/10(火) 19:00 発言
【33403】Re:並び替えについて Hirok 06/1/10(火) 21:37 お礼
【33378】Re:並び替えについて 06/1/10(火) 11:26 お礼
【44311】Re:並び替えについて 06/11/12(日) 22:42 質問
【44312】Re:並び替えについて ichinose 06/11/13(月) 7:29 発言
【44314】Re:並び替えについて 06/11/13(月) 9:41 質問
【44349】Re:並び替えについて ichinose 06/11/13(月) 18:23 発言
【44353】Re:並び替えについて 06/11/13(月) 20:23 お礼

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