| |
いつも、こちらで勉強させて頂いております。
このたび、また行き詰まってしまいました。
教えていただけないでしょうか？
セルAからEまで、セルFからIまでを2つのグループのように管理しています。
1グループ
セルA：ID
セルBからE：それぞれデータを入力
2グループ
セルF：セルAのID
セルGからH： それぞれデータを入力
セルI：ID
となっていて、
入力は、IDとなる、セルA、F、I以外に行っています。
データの入力後に、下記となるような処理を行いたいのですが、
どのようにすればいいのでしょうか？
セルA B C D E F G H I
1 あ 1 aa 1
1 bb 2
1 cc 3
2 い 2 dd 4
2 ee 5
データは、エクスポートされた後、クリアにするのですが、
セルA 、Iの値は続き番号とするため、
クリアにする時に、それぞれ最後の値+1をA2、I2に行っています。
Iを更新する作業は、
Sub tesut()
Dim g As Long
g = Range("G65536").End(xlUp).Row
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I" & g), Type:=xlFillSeries
End Sub
で、できたのですが、
AとFに値を入れる作業ができなくて困っています。
分かりづらい説明で申し訳ないのですが、
教えていただけないでしょうか？
よろしくお願いします
|
|
hana
- 03/12/19(金) 15:31 -
