Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68131 / 76734 ←次へ | 前へ→

【13144】セル(列)挿入について
質問  たくや  - 04/4/24(土) 8:03 -

引用なし
パスワード
   データ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
0 hits

【13144】セル(列)挿入について たくや 04/4/24(土) 8:03 質問
【13145】Re:セル(列)挿入について くーさん 04/4/24(土) 9:31 回答
【13148】Re:セル(列)挿入について たくや 04/4/24(土) 11:22 お礼
【13156】Re:セル(列)挿入について たくや 04/4/24(土) 22:00 質問
【13157】Re:セル(列)挿入について Asaki 04/4/24(土) 22:28 回答
【13161】Re:セル(列)挿入について たくや 04/4/25(日) 7:59 質問
【13164】Re:セル(列)挿入について たくや 04/4/25(日) 13:46 お礼

68131 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free