[[20060125144355]]　『エクセルVBAのエラーが解決できません”型が一致ａx（きみちゃん）　ページの最後に飛ぶ

『エクセルVBAのエラーが解決できません”型が一致しません”』（きみちゃん）

様々なところを勉強してみたのですがm(__)m
シート上のA1に168と書式では数値が入っています。この168(毎日数値が変更されます。)
マクロの計算式を書き換えるのもミスの元なのでデータを取得して、マクロの計算に
代入できると聞きやってみましやが、

元のマクロ

    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],RC[2])"
    Selection.AutoFill Destination:=Range("A2:A168")

または

    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
    Selection.Copy
    Range("A2:A168").Select
    ActiveSheet.Paste

これを
Dim Gyousu As Long

  Gyousu = Worksheets(Sheet1).Cells(1, 1).Value

With Worksheets(Sheet1)

  .Range(.Cells(2, 1), .Cells(Gyousu, 1)).FormulaR1C1 = _
      "=CONCATENATE(RC[1],RC[2])"

とすると

『型が一致しません』とエラーになります。基本のデバックの事だと聞き、調べたのですが判りませんでした。

何か良い方法を教えてください。お願いします。

 Worksheets(Sheet1)  →　 Worksheets("Sheet1")  ですね。
（純丸）(o^-')b

まったく情けないです。
ばっちりOKです。
ありがとうございました。

コメント返信：