Excel VBA質問箱 IV

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

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


42747 / 76732 ←次へ | 前へ→

【39047】Selection.Insert Shift:=xlDownのエラー
質問  エラー回避  - 06/6/16(金) 13:23 -

引用なし
パスワード
   A 列の情報を比較
上下行で変わる場合 間に1行含ませたいが
下記状態で動きません

Sub  A行情報変わる位置行挿入()

'B列 列挿入     Range("B:B").Select
           Selection.Insert Shift:=xlToRight

'A2の情報をA1へ  Range("A2").Select
          Selection.Copy
          Range("A1").Select
          ActiveSheet.Paste

'数式入力      Range("B2").Select
           ActiveCell.FormulaR1C1 = "=EXACT(R[-1]C[-1],RC[-1])"

'B列オートフィルタ Selection.AutoFill Destination:=Range("B2:B1109")
'False値を抽出   Range("B2:B1109").Select
           Range("B1").Select
           Selection.AutoFilter
           Selection.AutoFilter Field:=2, Criteria1:="FALSE"
           Selection.SpecialCells(xlCellTypeVisible).Select
           Rows("1:1105").Select
'可視セルのみ選択  Selection.SpecialCells(xlCellTypeVisible).Select
 
'行挿入        Selection.Insert Shift:=xlDown 'データ消失を防ぐ為エラーRangeクラスメゾネットエラー
           Selection.AutoFilter Field:=2

'抽出の為の列削除  Rows("2:2").Select
           Selection.Delete Shift:=xlUp
            Columns("A:B").Select
            Range("B1").Activate
           Selection.Delete Shift:=xlToLeft
            Columns("A:A").Select
            Selection.Delete Shift:=xlToLeft
            Cells.Select
            Cells.EntireColumn.AutoFit
           Range("A1").Select
 End Sub

上記が直せるか
他 方法がありましたら教えてください

6 hits

【39047】Selection.Insert Shift:=xlDownのエラー エラー回避 06/6/16(金) 13:23 質問
【39057】Re:Selection.Insert Shift:=xlDownのエラー Jaka 06/6/16(金) 17:10 発言
【39063】Re:Selection.Insert Shift:=xlDownのエ... ichinose 06/6/16(金) 20:21 発言
【39242】Re:Selection.Insert Shift:=xlDownのエ... エラー回避さん 06/6/20(火) 13:19 発言
【39265】Re:Selection.Insert Shift:=xlDownのエ... ichinose 06/6/20(火) 18:29 発言

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