2016-09-26 9 views
0

私は相対セル参照と絶対参照の両方でこれを試しました。私はマクロを記録してVBAに書き込もうとしました。私は過去に似たようなことをしたときに、なぜこれが私にとってうまくいかないのか分かりません。生データを取り込んでフォーマットするだけです。これには、Notesを追加するための2つの新しい列を挿入することも含まれます。Excelマクロ - マクロで列を挿入すると、他の列が奇妙な方法でシフトしていますか?

以下に、マクロのスナップを含めました。この問題は、マクロとして単独で使用しても問題が発生するため、マクロの残りの部分に問題がないことはわかっています。これはおそらく助けるべき

Rows("1:1").Select 
Rows("1:1").Select 
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
Selection.ClearFormats 
Columns("B:B").Select 
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
Range("B3").Select 
ActiveCell.FormulaR1C1 = "Date" 
Range("F3").Select 
ActiveCell.FormulaR1C1 = "Notes" 
+3

を願っています。それは***非常に***が[そうすることを避ける]ことを提案しています(http://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros)。 – BruceWayne

+0

ありがとうございます。試してみます。私は初心者です。私はActivateと変数の使い方を見ていますが、その間に多くのレンガの壁にぶつかることなく同じことをする方法を理解することはできません。まぁ。 –

+0

私たちはすべて、レンガの壁にぶつかり、私たちがどこにいるかを知り、より多くのヒットを期待しています。重要な点は、掘り起こし、質問をしたり、代替案を試したりすることによって、壁を回り回ることができることを認識することです。 – BruceWayne

答えて

1

は、私はそれが `.Select`の使用に関連しています感を持って

Private Sub thisorthat() 
Sheets(6).Columns("B").EntireColumn.Insert 
End Sub 
+1

ハ、素敵なキャッチ! – BruceWayne

+1

私は盲目的に投稿する前にコメントを読もうと思っていました。 @BruceWayne –

+0

そして、私は盲目的ではなく、おそらく '.Select'のためにコードを読んでいたはずです。:P – BruceWayne

関連する問題