セルに数式を挿入し、最後の行に下げます

Question

誰でも助けてください私は実行時エラー '1004'を受け取りました。アプリケーション定義またはオブジェクト定義のエラー。

私はライン上のエラー取得しています：。LASTROW =シート（ "CATANを"）細胞（Rows.Count、 "F"）終了（x1Up）

Dim lastrow As Long 
lastrow = Sheets("CATAN").Cells(Rows.Count, "F").End(x1Up).Row 
Sheets("CATAN").Range("E:E").Locked = False 
Sheets("CATAN").Range("E1").Select 

ActiveCell.Formula = "=F1&""&G1" 
Sheets(Catan).Range("E1").AutoFill Destination:=Range("E1:E" & lastrow), Type:=xlFillDefault 

Sheets("CATAN").Range("E:E").Locked = True 

データは、それが行くよう.Row。 1行目は

A  |   B   |   C    |   D |  E  |   F    |  G 100  | 492935.7 |  6898792  |  56.707 |    |  %PO   | AB9265 101  | 492937.7 |  6898796  |  56.862 | |   NS   | 

です。私は間違いがありました。

Answer 1

あなたは、コードの1行でこれを行うことができます：あなたが行に基づいてインクリメントしたい知っているのに十分

Sheets("CATAN").Range("E1:E" & Sheets("CATAN").Range("F" & Rows.Count).end(xlup).row).formula = "=F1 & "" "" & G1" 

そのスマート。

F1とG1の結果の間にスペースを入れたいと思っていました

Answer 2

コードを実装するためのより良い方法については、the answer by Scott Cranerを参照してください。しかし、あなたがどのようなエラーがあったかを知るためにここには残しておきます。 x1Up代わりxlUpの -

---

あなたがタイプミスを持っています。

Dim lastrow As Long 
'Fix typo and specify which sheet "Rows" refers to 
lastrow = Sheets("CATAN").Cells(Sheets("CATAN").Rows.Count, "F").End(xlUp).Row 
Sheets("CATAN").Range("E:E").Locked = False 
Sheets("CATAN").Range("E1").Select 

'=F1&"&G1 is not a valid Excel formula 
ActiveCell.Formula = "=F1&G1" 

'Variable Catan not defined - I assume you mean the string "CATAN" 
Sheets("CATAN").Range("E1").AutoFill Destination:=Range("E1:E" & lastrow), Type:=xlFillDefault 

Sheets("CATAN").Range("E:E").Locked = True 

Answer 3

コメントで述べたように：

それは下ケースL代わりのxlUpで1ある

はまた、以下に固定されているコード内の他のいくつかのエラーを持っています。

あなただけのシートが保護されていないことを確認し、ロックを解除し、細胞を再びロックする必要はありません。

R1C1表記ですべての式を一度に設定できます。

Dim lastrow As Long 
lastrow = Sheets("CATAN").Cells(Rows.Count, "F").End(xlUp).Row 
Sheets("CATAN").Range("E1:E" & lastrow).FormulaR1C1 = "=RC[1] & RC[2]"