【excelマクロ】別シートの最終行にデータを転記する方法を教えてください。
Excelでタスク管理をするマクロを作ろうと思っているのですが上手くいきません。Taskシートで、完了日にデータが入っているものを、済シートの最終行の一つ下へ転記し、Taskシートのデータを消そうと思うのですが、上手くできません。なぜか転記先が最終行の1つ下にならず、なぜか、B3,C2,D2,G-I2に一行のみ転記されてしまいます。マクロにどう手を加えたらよいかを教えてください。
Sub 完了タスク転記()
For rw = 44 To 200
If Worksheets("Task").Range("I" & rw) <> "" Then
Worksheets("済").Range("B" & (Range("B1").End(xlDown).Row + 1)).Value = Worksheets("Task").Range("E" & rw).Value
Worksheets("済").Range("C" & (Range("B1").End(xlDown).Row)).Value = Worksheets("Task").Range("F" & rw).Value
Worksheets("済").Range("D" & (Range("B1").End(xlDown).Row)).Value = Worksheets("Task").Range("G" & rw).Value
Worksheets("済").Range("G" & (Range("B1").End(xlDown).Row)).Value = Worksheets("Task").Range("D" & rw).Value
Worksheets("済").Range("H" & (Range("B1").End(xlDown).Row)).Value = Worksheets("Task").Range("H" & rw).Value
Worksheets("済").Range("I" & (Range("B1").End(xlDown).Row)).Value = Worksheets("Task").Range("I" & rw).Value
Worksheets("Task").Range("D" & rw & ":I" & rw).ClearContents
End If
Next
End Sub
ベストアンサー
-
ken3memo
Worksheets("済").Range("B" & (Range("B1").End(xlDown).Row + 1)).Value = Worksheets("Task").Range("E" & rw).Value
"B" & (Range("B1").End(xlDown).Row + 1)
シートが指定されていないので、
これだと、今いる実行時のアクティブシートを見てしまい、
B列の最終行を誤判断してしまうのでは？
試してほしい処置は、
同じく頭に シート指定を入れて、
Worksheets("済").Range("B" & (Worksheets("済").Range("B1").End(xlDown).Row + 1)).Value = Worksheets("Task").Range("E" & rw).Value
を各行に追加して、最終行を判断するシートを指定してみては？
>なぜか、B3,C2,D2,G-I2に一行のみ転記されてしまいます
最終行の判断が現在のアクティブシートになっているので、
セット位置が動かない 見ている場所(sheets)が違う？と、予想してみました。
あと、余談・蛇足ですが、
毎回セット位置を.End(xlDown).Rowで求めていますが、
y = Worksheets("済").Range("B1").End(xlDown).Row + 1 '最終行＋いち が セット位置
Worksheets("済").Range("B" & y).Value = Worksheets("Task").Range("E" & rw).Value
Worksheets("済").Range("C" & y).Value = Worksheets("Task").Range("F" & rw).Value
・
・
・
Worksheets("済").Range("I" & y).Value = Worksheets("Task").Range("I" & rw).Value
とセット位置の計算が一回のほうがわかりやすかったり
おっと、余談でした、
シートの指定
Worksheets("済").Range("B" & (Worksheets("済").Range("B1").End(xlDown).Row + 1)).Value = Worksheets("Task").Range("E" & rw).Value
を試してみてください。
問題解決の参考となれば幸いです。 -
その他の回答
-
adgt
http://f.hatena.ne.jp/adgt/20170213094304
イメージを添付し忘れていました。上記のような転記を考えています。
この質問へのコメント
質問の情報
- 登録日時
- 2017-02-13 09:33:14
- 終了日時
- 2017-02-15 05:44:22
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者