ﾏｸﾛ作成でのコードエラー解消方法を教えてください

Question

前提・実現したいこと

2000くらいのセルデータを指定した個数だけ
別シートに移動させたいのですがその走りで
色々試している段階でﾏｸﾛがうまく回らないので
意見をお聞きしたいです

発生している問題・エラーメッセージ

Sub Sample4()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws2 = Worksheets("使用ﾃﾞｰﾀoutput")
Set ws1 = Worksheets("ｸｴﾘﾃﾞｰﾀ参照式")

Dim D As String, n As String, E As String, T As String, J As String, G As String, H As String, K As String, A As String, B As String, C As String
D = ws1.Range("HB1").Value 'ﾃﾞｰﾀ数
n = ws1.Range("HE2").Value '条件数
A = ws1.Range("HJ4").Value 'HJﾃﾞｰﾀ開始
T = 4 'HJ開始行番号
E = T + 59 '一水準終わり列番号
J = 218 'HJ列番号
G = T + D '一水準範囲終わり行番号
H = 216 'HH列番号
B = 4
K = ws1.Range("HH4").Value '計測ﾃﾞｰﾀ数
C = J + K '一水準範囲終わり行番号

ws2.Range(Range(3, 2), Range(14, 4)) = ws1.Range(ws1.Range(T, J), ws1.Range(G, C))

End Sub

エラーメッセージ
Rangeメソッドは失敗しました Worksheetオブジェクト

該当のソースコード

ws2.Range(Range(3, 2), Range(14, 4)) = ws1.Range(ws1.Range(T, J), ws1.Range(G, C))

Answer 1

変数をStringではなくIntegerで宣言できるのであれば

ws2.Range(ws2.Cells(3, 2), ws2.Cells(14, 4)) = ws1.Range(ws1.Cells(T, J), ws1.Cells(G, C)).Value

これではどうでしょう？

Comments

[aaieei]

回りました！！
本当にありがとうございます

Answer 2

あるあるの質問ですが、内側のRangeにもシートを指定するようにしましょう。
あと、Range(3, 2) というような指定はできないです。行番号、列番号で指定するなら Cells(3, 2) という指定になります。

ws2.Range(ws2.Cells(3, 2), ws2.Cells(14, 4)) = ws1.Range(ws1.Cells(T, J), ws1.Cells(G, C))

あと、変数は長整数型(Long)で宣言しましょう。

    Dim D As Long, n As Long, E As Long, T As Long, J As Long, G As Long, H As Long, K As Long, A As Long, B As Long, C As Long

Comments

[aaieei]

すみませんまだうまく回らないみたいです

[hatena19]

見落としがあったので回答修正しました。

[aaieei]

次はアプリケーション定義又はオブジェクト定義のエラーがでました

[hatena19]

回答に追記しましたので、それも確認してください。

[aaieei]

回りました！！
本当にありがとうございます