With ThisWorkbook.Worksheetsが効かない

Question

下記は、シート１の内容を残したまま、編集したい箇所がある為、シート２を複製させて、
Sub Test3()にあるような、セルの削除やコピペ、時間の計算を行う為のプログラムです。
Sub Test3()内のDim i As Integer以降の動作をWith ThisWorkbook.Worksheets("変換結果")※sheet2で行いたいのですが、Sheet1内で動作が行われてしまいます。With ThisWorkbook.Worksheets("変換結果")〜End Withで囲まれているので反応するかと思ったのですが、この場合どのように記述すればよろしいでしょうか。また、.Columns(6).Delete〜の作業は、ThisWorkbook.Worksheets("変換結果")※sheet2で行われます。
初心者ですので、なるべく簡単なプログラムにしていただけると幸いです。よろしくお願いいたします。

Sub Test1()
   Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)
End Sub

Sub test2()
   Worksheets("Sheet1 (2)").Name = "変換結果"
End Sub

Sub Test3()
With ThisWorkbook.Worksheets("変換結果")
   .Columns(6).Delete
   .Columns(3).Insert
   .Columns(4).Copy Destination:=.Columns(3)

       Dim i As Integer
       For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
       Dim rng As Range

       For Each rng In Cells(i, 3)
           rng.Value = rng.Value + 0.375
       Next
  Next
  End With

End Sub

Comments

[TanakaHiroaki]

前回の質問がクローズされていません。少なくとも、前回のアドバイス受け、ステップ実行等を実施し、どのエラーメッセージにつまづいているのかを具体的に示すのがマナーではないでしょうか。

[imihito]

ソースコードの直前の行に「```vba」、直後の行に「```」を追加して、ソースコードにシンタックスハイライトが適用されるようにしてください

Answer 1

実際に動作させてみての回答ではありませんが、ぱっとみて
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
とか
For Each rng In Cells(i, 3)
のあたりのCellsがWith対応の記述になっていない(つまり現在のアクティブシートを参照している)ところが気になります。

With直後の列削除・追加・コピーは目的のシートにできていて、ループ処理の足し算だけが目的のシートで行われていないようでしたらコレが原因かと思います。
ご確認ください。

---

余談ですが、①シートをコピーして②シート名を変える、というところまで一連の流れで行うようでしたら、

   Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = "変換結果"

とするのが一般的で、確実かと思います。
コピー直後なら結果のシートがアクティブシートで取れるからです。

シート名で探そうとすると、すでに他作業でSheet1がコピーされていてSheet1(2)が存在すると、今回のコピーで作成したシートはSheet1(3)などにずれたりするので意図せぬ結果になりかねないですよね。

ご質問内容とは関係ないことですが、ご参考までに。

Comments

[mimicon]

ご回答ありがとうございます.
With対応の記述がわからなかった為、調べたのですが、
With〜とDim〜、for〜のようなものが一緒になっているものがなく
```
With ThisWorkbook.Worksheets("変換結果").Cells(i, 3)
Dim i As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Dim rng As Range

For Each rng In Cells(i, 3)
rng.Value = rng.Value + 0.375
Next
Next
End With
End With
```
上記のように記述してみたのですが、For i =を指定する前に.Cells(i, 3)と書いてしまっているからか、コンパイルエラー：変数が定義されていません。と表示されてしまいます。
ですので、With ThisWorkbook.Worksheets("日本時間への変換結果").Range("C:C")にしたところ、時間が足されず、ただ複製されたものが表示されます。
恐れ入りますが、もう少々教えていただけますと幸いです。
また、①シートをコピーして②シート名を変えるにつきましては、回答者様の教えてくださった通りにしてみたところ１つのオブジェクトにまとめることができました。ありがとうございます。

[jawa]

`With句`がどのようなものかはご存知でしょうか？
[OfficeTANAKAさんの説明](http://officetanaka.net/excel/vba/beginner/16.htm)が非常にわかりやすいのですが、要は
```
○○.Value = 123
○○.ForeColor = vbRed
○○.BackColor = vbBlue
```
といった具合に、あるオブジェクトに対していくつかの操作を行う場合、最初に「対象は○○です」と宣言することで「○○」の記述を省略できるようにするものです。
```
With ○○
.Value = 123
.ForeColor = vbRed
.BackColor = vbBlue
End With
```
といった具合です。

シートで考えてみます。
```
WorkSheets("Sheet1").Cells("A1") = 1
WorkSheets("Sheet1").Cells("A2") = 2
WorkSheets("Sheet1").Cells("A3") = 3
```
なら
```
With WorkSheets("Sheet1")
.Cells("A1") = 1
.Cells("A2") = 2
.Cells("A3") = 3
End With
```
と書くことができます。

ここで注意が必要なのは、省略するのはオブジェクト名の部分だけなので、省略したオブジェクトを参照するものは必ず「.」から始まるというところです。
つまり
```
Width WorkSheets("Sheet1")
.Cells("A1") = 1
.Cells("A2") = 2
Cells("A3") = 3
End With
```
のようになっていると、最後の`Cells("A3") = 3`だけはSheet1ではなくアクティブシートを参照してしまう、ということです。

今回でいうと、For文として記述されているCellsが「.」から始まっていないため（ループ範囲も、取得するrngも）アクティブシートを対象に動作しているところが問題だと思います。

[mimicon]

大変わかりやすくありがとうございます。理解できました。仰る通りCellsの前に.をつけたところ、やっとできました。

Answer 2

こちらで回答させて頂いている通りの事です。
https://teratail.com/questions/146000