[[20200922091454]]　『vba　オートフィル　おこないたい』（みみ）　ページの最後に飛ぶ

『vba　オートフィル　おこないたい』（みみ）

お世話になります
ご教示頂けたら幸いです
別シートの最終行と同じ行まで
オートフィルでコピーを行いたいのですがエラーが出てしまってます
お手数おかけしますが　どこが悪いか教えてください
参照シートのA5から下がってデータ有るまでの行まで行いたいです

Sub WARS取得()

    Set shA = Worksheets("SE_RACE")
    Set shB = Worksheets("WARS作業")
    i = shA.Range("A5").End(xlDown).Row()
    shB.Range("N1") = "+shA.Range(""A5"") & shA.Range(""B5"")& shA.Range(""C5"")& shA.Range(""D5"")] & shA.Range(""E5"")"
    shB.Range("N1").AutoFill Destination:=shB.Range("N" & i)
End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

下記部分も違うと思いますが　書き換えが良く割らないので教えてください
shB.Range("N1") = "+shA.Range(""A5"") & shA.Range(""B5"")& shA.Range(""C5"")& shA.Range(""D5"")] & shA.Range(""E5"")"

自動記録のR1C1　は下記のようになるのですが
shB.Range("N1").FormulaR1C1 = _

        "=shA!R[4]C[-12]&shA!R[4]C[-11]&shA!R[4]C[-10]&shA!R[4]C[-9]&shA!R[4]C[-8]"
（みみ） 2020/09/22(火) 10:27

＞自動記録のR1C1　は下記のようになるのですが
頑張って読めばわからなくはないんですが、面倒なので実際の「WARS作業」シートのN1セルにどのような数式が入っているか教えてもらえませんか？
（無理にとはいいませんが）

（もこな２） 2020/09/22(火) 11:00

もこな２さま　ありがとうございます

数式は下記のようになります

=SE_RACE!B5&SE_RACE!C5&SE_RACE!D5&SE_RACE!E5&SE_RACE!F5

エラー個所の
shB.Range("N1").AutoFill Destination:=shB.Range("N" & i)　は実値　９５５を示しています

よろしくお願いいたします
（みみ） 2020/09/22(火) 11:04

方法はいろいろあるとおもいますが、たとえばこんな感じでよいとおもいます。

   Sub WARS取得()
      Dim i As Long
      Stop 'ブレークポイントの代わり

      i = Worksheets("SE_RACE").Range("A5").End(xlDown).Row '★１

      With Worksheets("WARS作業").Range("N1")
         .Formula = "=SE_RACE!B5&SE_RACE!C5&SE_RACE!D5&SE_RACE!E5&SE_RACE!F5"
         .AutoFill Destination:=.Resize(i)
      End With

   End Sub

★１の部分について
　最後の（）はいらないとおもいます。

（もこな２） 2020/09/22(火) 14:42

 Sub TEST()
    Dim Rng As Range

    With Worksheets("SE_RACE").Range("A5")
        Set Rng = Application.Range(.Cells, .End(xlDown))
    End With
    Worksheets("WARS作業").Range("N1").Resize(Rng.Rows.Count) _
        .Formula = "=SE_RACE!B5&SE_RACE!C5&SE_RACE!D5&SE_RACE!E5&SE_RACE!F5"
 End Sub

数式はセル範囲に一括で入力が可能ですので、
あえて、オートフィルをする必要がありません。

参考URL>>

https://kokodane.com/2013_kan_008.htm#:~:text=%E5%90%8C%E3%81%98%E9%96%A2%E6%95%B0%E3%82%92%E8%A4%87%E6%95%B0%E3%81%AE%E3%82%BB%E3%83%AB%E3%81%AB%E4%B8%80%E6%8B%AC%E5%85%A5%E5%8A%9B&text=Excel%E3%81%A7%E3%81%AF%E3%80%81%E8%A4%87%E6%95%B0%E3%81%AE%E3%82%BB%E3%83%AB,%E3%81%99%E3%82%8B%E3%81%93%E3%81%A8%E3%81%8C%E3%81%A7%E3%81%8D%E3%81%BE%E3%81%99%E3%80%82&text=Ctrl%20%E3%82%AD%E3%83%BC%20%2B%20Enter%E3%82%AD%E3%83%BC%20%E3%81%A7%E7%A2%BA%E5%AE%9A%E3%81%97%E3%81%BE%E3%81%99%E3%80%82
（まっつわん） 2020/09/23(水) 18:19

＞セル範囲に一括で入力が可能
そういえばそうですね。AutoFillに気をとられすぎました…

（もこな２） 2020/09/23(水) 19:58

コメント返信：

[ 一覧(最新更新順) ]

[[20200922091454]] 『vba オートフィル おこないたい』（みみ） ページの最後に飛ぶ

[[20200922091454]]　『vba　オートフィル　おこないたい』（みみ）　ページの最後に飛ぶ