Excel VBA質問箱 IV

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

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


36514 / 76732 ←次へ | 前へ→

【45397】Re:指定した文字の直前まで連番を
回答  Kein  - 06/12/22(金) 1:15 -

引用なし
パスワード
   解決後ですが、連番を振るなら一般的なオートフィル機能を使って・・

Sub Line_Num()
  With Sheets("Sheet1")
   With .Range("D1")
     If .End(xlDown).Value <> "合計" Then Exit Sub
     .Value = 1
     .AutoFill .Parent.Range("D1", .End(xlDown).Offset(-1)), _
     xlLinearTrend
   End With
  End With
End Sub

などとすることも出来ます。行数が多くなると、確実にループより速いです。
(他にもいくつかやり方があります。)
0 hits

【45392】指定した文字の直前まで連番を ラーメンズ 06/12/21(木) 21:50 質問
【45395】Re:指定した文字の直前まで連番を ponpon 06/12/21(木) 22:30 発言
【45396】Re:指定した文字の直前まで連番を yoshida 06/12/22(金) 0:07 お礼
【45397】Re:指定した文字の直前まで連番を Kein 06/12/22(金) 1:15 回答
【45403】Re:指定した文字の直前まで連番を ラーメンズ 06/12/22(金) 9:34 お礼

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