Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68203 / 76807

←次へ　｜　前へ→


	【13145】Re:セル（列）挿入について

くーさん - 04/4/24(土) 9:31 -


	引用なし

	パスワード

こんにちは。
中途半端ですが、１つだけ右にずらす方法なら以下を参照して下さい。

Private Sub CommandButton1_Click()
Dim i As Long, LastRow As Long
LastRow = Worksheets("データ").Range("A65536").End(xlUp)
　　
For i = 1 To LastRow
If Worksheets("データ").Cells(i, "B").Value = "bbb" Then
Worksheets("データ").Cells(i, "C").Insert Shift:=xlToRight
End If
If Worksheets("データ").Cells(i, "B").Value = "ccc" Then
Worksheets("データ").Cells(i, "C").Insert Shift:=xlToRight
End If
Next i
End Sub

Cells で２列以上を範囲指定する方法が分かれば良いのですが、いかんせん私も勉強中なので、現在は分かっておりません。
中途半端な答えで申し訳ない…。

0 hits

▼

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