[[20170602014945]]　『うまく処理されない』（まっとん）　ページの最後に飛ぶ

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

下の構文（？）のなかの

 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

コメント返信：

[ 一覧(最新更新順) ]

[[20170602014945]] 『うまく処理されない』（まっとん） ページの最後に飛ぶ

[[20170602014945]]　『うまく処理されない』（まっとん）　ページの最後に飛ぶ