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 質問
【43723】Re:文字列の連続移動 かみちゃん 06/10/23(月) 21:18 発言
【43729】Re:文字列の連続移動 風車やしち 06/10/24(火) 5:26 質問
【43734】Re:文字列の連続移動 ゆと 06/10/24(火) 9:59 発言
【43735】Re:文字列の連続移動 風車やしち 06/10/24(火) 11:45 発言
【43739】Re:文字列の連続移動 Kein 06/10/24(火) 13:48 回答
【43758】Re:文字列の連続移動 風車やしち 06/10/24(火) 18:46 お礼

38146 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free