『うまく処理されない』（まっとん）

下の構文（？）のなかの
 Rows("11:未更新者リスト最終行").Select
の部分がうまく処理してくれません。
未更新者リストをメッセージボックスでだすと「27」とでますし
 Rows("11:27").Select
にするとうまく処理できます。

申し訳ありませんがご助言いただけないでしょうか？



Sub 電話リスト作成()
    With Worksheets.Add()
        .Move After:=Worksheets(Worksheets.count)
        .Name = "電話リスト"
    End With
    
  Dim i As Long, 未更新者リスト最終行 As Variant, 電話リスト最終行 As Long
  For i = 1 To Sheets.count - 3 Step 1
    
  電話リスト最終行 = Sheets("電話リスト").Cells(Rows.count, "A").End(xlUp).Row
  未更新者リスト最終行 = Sheets(i).Cells(Rows.count, "A").End(xlUp).Row
  MsgBox 未更新者リスト最終行
  Cells(電話リスト最終行 + 1, 1) = Sheets(i).Name
  Sheets(i).Select
  Rows("11:未更新者リスト最終行").Select
  Selection.Copy
  Sheets("電話リスト").Select
  Cells(電話リスト最終行 + 1, 1).Select
  ActiveSheet.Paste
  Next i




＜ 使用 Excel：Excel2013、使用 OS：unknown ＞
----
まっとんさん

＞  Rows("11:未更新者リスト最終行").Select

変数を使われているのですから、このままでは単なる文字列です。

  Rows("11:" & 未更新者リスト最終行).Select

ではないですかね？

  Sheets(i).Rows("11:" & 未更新者リスト最終行).Copy Sheets("電話リスト").Cells(電話リスト最終行 + 1, 1)

 と .Select や　Selection　を纏めてみるとかも

（じゅんじゅん） 2017/06/02(金) 05:03
----
じゅんじゅんさん

早急な回答ありがとうございます！！解決しました。
過去の自分の質問と同様で恥ずかしい限りです。
助言もありがとうございます。
拝借させていただきます

（まっとん） 2017/06/02(金) 08:19