Excel VBA質問箱 IV

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

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


17437 / 76732 ←次へ | 前へ→

【64748】特定のセルを対象から外して連番を振る方法
質問  初心者  - 10/3/11(木) 16:39 -

引用なし
パスワード
   いつもお世話になっております。
本日も難問に当ってしまった為、投稿させていただきました。

以下の条件を含む連番を振り直すマクロを作りたいと思っています。

▼条件
1. 途中でコピーによって行が追加された場合
1. 連番を振り直すのは1列のみ
2. 特定のセルには番号を振らない
   ・空白セル
   ・グレイのセル
   ・見出しが入ったセル

<参考>
  A     B     C
1 ◎見出し
2  1
3  2
4  3
5  4
6 ※グレイのセル
7  5
8  6
9 ※空白セル
10 7


▽以下までは作ることができました。
・連番が既にセルに入力されている時、セル・行を削除すると連番を振りなおす。

Sub Test()
 Dim f As Long
 Dim Lrow As Long
 Dim myNo() As Long
 With Worksheets("Sheet1")
    Lrow = .Range("A" & CStr(Rows.Count)).End(xlUp).Row
    If Lrow = 1 Then Exit Sub
    ReDim myNo(1 To Lrow, 1 To 1)
    For f = 1 To Lrow
       myNo(f, 1) = f
    Next
    .Range("A2:A" & CStr(Lrow)).Value = myNo
 End With
End Sub


ここから上記条件を含めてカスタマイズしたいと思います。
特定のセルを飛ばす(対象から外す)場合、はどのような書き方がよろしいでしょうか?
"見出しが入ったセル"はあまりにも条件として漠然としている為、
あらかじめフォーマットを統一したほうがいいでしょうか?(たとえば頭に”▼”や”◎”をつけるなど)

ご教授お願いいたします。

1 hits

【64748】特定のセルを対象から外して連番を振る方法 初心者 10/3/11(木) 16:39 質問
【64753】Re:特定のセルを対象から外して連番を振る... kei 10/3/11(木) 22:00 回答
【64755】Re:特定のセルを対象から外して連番を振る... みかこ 10/3/12(金) 10:50 質問
【64757】Re:特定のセルを対象から外して連番を振る... kei 10/3/12(金) 11:04 発言
【64758】Re:特定のセルを対象から外して連番を振る... みかこ 10/3/12(金) 11:10 お礼

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