|
▼かみちゃん さん:
おはようございます。
シート"DF2"にちらばる文字列を、シート"DF2(2)"の2行目から順に並べたいと思っていますが、エラーがでます。
シート"DF2(2)"のコピー開始行を求めるところで、「インデックスが範囲外・・」となります。
'DF2最終行
GetE = Worksheets("DF2").Range("A:A").Find("*", , xlValues, , , xlPrevious).Row
'DF2開始行
For s10 = 2 To 1000
If Worksheets("DF2").Cells(s10, 1) = "" Then
n = 0 'ダミー
Else
GetS = s10
Exit For
End If
Next s10
'DF2(2)開始行
For s20 = 2 To 1000
If Not Worksheets("DF2(2)").Cells(s20, 1) Then
n = 0 'ダミー
Else
GetS2 = s20
Exit For
End If
Next s20
'コピー
Worksheets("DF2").Rows(CStr(GetS) + ":" + CStr(GetE)).Select
Selection.Copy
'貼り付け
Worksheets("DF2(2)").Rows(CStr(GetS2)).Paste
'削除
Worksheets("DF2").Rows(CStr(GetS) + ":" + CStr(GetE)).Select
Selection.Clear
|
|