| |
▼超初心者 さん：
こんにちは。
> A B C D E
>1 受付日 受付番号 No. 担当 製品型式
>2 10/15 1 1 山田 A-3
>3 2 B-4
>4 3 A-8
>5 4 C-11
>6 10/17 2 鈴木 A-3
> D5
>
>受付処理を自動化しています。1つの受付番号に複数の製品型式があります。
>受付する時にC列の最終行からE列の最終行までC列に1から連番を振りたいのです。
>今かいているコードでは全部に１を入力してしまいます。よろしくご教授ください。
このご質問の解法は、色々な方法があると思います。
データの配置まで記述していただいたのですが、
マクロ実行前のデータの配置
マクロの実行（コード記述）
マクロ実行後のデータの配置
つまり、実行前又は、実行後のデータの構成が抜けています。
そして、これが問題をわかりづらくしています。
> 〜略〜
>上 = Range("c65536").End(xlUp).Row + 1
> 下 = Range("e65536").End(xlUp).Row
> For RowNo = 上 To 下
>
If rowno = 上 Then
Range("ｃ" & rowno).Value = 1
Else
Range("c" & rowno).Value = Range("c" & rowno - 1).Value + 1
End If
> Next
>
> 〜以下略〜
シートの構成表がマクロ実行前だとすると、こんな↑方法も考えられますが・・。
|
|
ichinose
- 05/10/17(月) 15:41 -
