| |
データsheetでの、セル（列）挿入についてですが、
A B C D E
4 日 種別 項目1 項目2 項目3
5 4/1 aaa 111 222 333
6 4/2 bbb 111 222 333
7 4/3 bbb 111 222 333
8 4/4 ccc 111 222 333
(以下続く）
とある場合、種別が b とc の場合は、AとＣの間に３行に挿入したいのですが、よい方法が
あれば教えてください。下記のようにしたいのですが。
A B C D E F G H
4 日 種別 項目1 項目2 項目3 項目4 項目5 項目6
5 4/1 aaa 111 222 333
6 4/2 bbb 111 222 333
7 4/3 bbb 111 222 333
8 4/4 ccc 111 222 333
(以下続く）
いろいろ考えたのですが、初心者でわからなくなりました。
こんな感じでしょうか？（全然だめですが）
Sub 挿入()
Dim i As Long
For i = 1 To 3
If Worksheets("データ").Range("A5").Value = "bbb,ccc" Then
Worksheets("データ").column(i).Insert xlToRight
End If
Worksheets("データ").Range("A5").Value = "bbb,ccc" Then
---何もしない---
Else
|
|
たくや
- 04/4/24(土) 8:03 -
