指定列にデータがある場合だけ連番を付けるマクロについて

Question

Anonymous

Ｐ列４行目以降に次のようなマクロで連番を振るようにしています。これにＤ列４行目以降にデータがある場合だけ連番を付けるという条件を加えたいと思っています。お力をお貸しくださいませ。

Sub 一覧表IDに連続番号を付ける()

k = 1

For i = 4 To 212

ActiveSheet.Cells(i, 16).Value = k

k = k + 1

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

質問作成者が受け入れた回答

2 件の追加の回答

Answer 1

以下の様に「If ActiveSheet.Cells(i, 4).Value <> "" Then～End If」を追加されるとよろしいかと思います。

Sub 一覧表IDに連続番号を付ける()

k = 1

For i = 4 To 212

If ActiveSheet.Cells(i, 4).Value <> "" Then

ActiveSheet.Cells(i, 16).Value = k

k = k + 1

End If

Answer 2

みながさん、アドバイスありがとうございます。

takamoriman さん、こんにちは。

みながさんからいただいたアドバイスが参考になったようですね。

同じような情報をお探しの方にも、こちらを参考いただければと思い、今回は私の方で \[回答としてマーク\] をさせていただきました。

takamoriman さんの方でも参考になったと思ったら、次回は [回答としてマーク] をつけてみてくださいね。

次回もぜひ Answers をご利用ください。

石田優 – Microsoft Support

Answer 3

Anonymous

ありがとうございました。助かりました。

0 件のコメント