前提・実現したいこと
sheet1の元データを複製させた、sheet2(変換結果)のデータをいじりたいが、sheet1が反応してしまう。
※Sub test3()でアクティブなセルをsheet2(変換結果)にしたつもりだが、Sub Test4()以降の作業を行うとsheet1で作業が行われる。
発生している問題・エラーメッセージ
エラー表示はないが、アクティブなセルをsheet2(変換結果)にしたつもりだが、sheet1で作業が行われる。
### 該当のソースコード Sub Test1() Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count) End Sub Sub test2() Worksheets("Sheet1 (2)").Name = "変換結果" End Sub Sub test3() Dim bk As Workbook Set bk = ActiveWorkbook '// Sheet1を選択 bk.Worksheets("変換結果").Select End Sub Sub Test4() Worksheets("変換結果").Activate Columns(3).Insert End Sub Sub test5() Columns(4).Select Selection.Copy Columns(3).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/09/17 13:41
2018/09/18 00:17