Excel VBA質問箱 IV

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

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


60246 / 76732 ←次へ | 前へ→

【21128】Re:特定の文字の入ったセルを下にシフトして...
回答  Jaka  - 05/1/12(水) 16:55 -

引用なし
パスワード
   Sub came()
Dim fsr1 As Long, fsr2 As Long
Rows(1).Insert
fsr1 = 2
Do Until Range("A" & fsr1).End(xlDown).Row = 65536 And Range("B" & fsr1).Value = ""
  If Range("A" & fsr1 + 1).Value = "" Then
   fsr2 = Range("B" & fsr1).End(xlDown).Row
   Range("B" & fsr1 & ":B" & fsr2).Sort Key1:=Range("B" & fsr1 - 1), _
      Order1:=xlAscending
   fsr1 = Range("A" & fsr2).End(xlDown).Row
  Else
   fsr1 = fsr1 + 1
  End If
Loop
Rows(1).Delete
End Sub
0 hits

【21109】特定の文字の入ったセルを下にシフトして... bee 05/1/12(水) 10:52 質問
【21110】Re:特定の文字の入ったセルを下にシフトし... IROC 05/1/12(水) 11:10 質問
【21111】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 11:22 質問
【21112】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 11:40 回答
【21116】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 13:35 質問
【21118】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 14:16 回答
【21122】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 15:27 質問
【21125】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 16:39 回答
【21128】Re:特定の文字の入ったセルを下にシフトし... Jaka 05/1/12(水) 16:55 回答
【21132】Re:特定の文字の入ったセルを下にシフト... bee 05/1/12(水) 18:16 質問
【21134】Re:特定の文字の入ったセルを下にシフト... IROC 05/1/12(水) 18:29 回答
【21145】Re:特定の文字の入ったセルを下にシフト... bee 05/1/13(木) 9:18 お礼

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