0

このコードの何が問題なのかわかりません。Rng.select でエラーが表示されます。別のシートでテストしたところ、うまくいきました。何か助けて?. 

Sub copyex()
Dim Lastro As Integer
Dim oSht As Worksheet
Dim Rng As Range

'make exact copy at S6 for comparasion
 Set oSht = Workbooks("Main.xlsm").Sheets("Work")
 Lastro = oSht.Cells(Rows.Count, 2).End(xlUp).Row

With oSht
Set Rng = oSht.Range("B6:G" & Lastro)
      Rng.Select
      Selection.Copy
      Range("S6").Select
      ActiveSheet.Paste
End With
4

1 に答える 1

2

範囲を選択する前に、シートを選択する必要があります。

編集＃1：

あなたの例では、おそらく範囲を選択する必要はありません....2行を置き換えてみてください：

Rng.Select
Selection.Copy

一行で：

Rng.Copy
于 2013-10-20T16:57:55.037 に答える