|
データ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とCの間に3行に挿入したいのですが、よい方法が
あれば教えてください。下記のようにしたいのですが。
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
|
|