Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38146 / 76732

←次へ　｜　前へ→


	【43729】Re:文字列の連続移動

風車やしち - 06/10/24(火) 5:26 -


	引用なし

	パスワード

▼かみちゃんさん：
おはようございます。
シート"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

0 hits

▼

【43722】文字列の連続移動 風車やしち 06/10/23(月) 21:15