Code fill công thức đến cell cuối cùng có dữ liệu (1 người xem)

[vanlemon]

Code Macro là:

Sub Macro1()
'
' Macro1 Macro
'

'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!C[-1]:C,2,0)"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B19")
Range("B1:B19").Select


End Sub



Vấn đề em gặp phải là Marcro này sẽ fill xuống ô B19 là cuối cùng.
Tuy nhiên dữ liệu của em nó thay đổi, khi thì ô B10 là cuối, khi thì B100 là cuối
Có cách nào cho nó tự fill đến ô cuối cùng của cột A có dữ liệu không anh?

 

[hung2412]

Code Macro là:

Sub Macro1()
'
' Macro1 Macro
'

'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!C[-1]:C,2,0)"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B19")
Range("B1:B19").Select


End Sub



Vấn đề em gặp phải là Marcro này sẽ fill xuống ô B19 là cuối cùng.
Tuy nhiên dữ liệu của em nó thay đổi, khi thì ô B10 là cuối, khi thì B100 là cuối
Có cách nào cho nó tự fill đến ô cuối cùng của cột A có dữ liệu không anh?

Bạn viết tiêu đề chung chung quá, sợ bị khóa.

 

[phihndhsp]

Code Macro là:

Sub Macro1()

Selection.AutoFill Destination:=Range("B1:B"&range("A65000").end(xlup).row)

End Sub



Vấn đề em gặp phải là Marcro này sẽ fill xuống ô B19 là cuối cùng.
Tuy nhiên dữ liệu của em nó thay đổi, khi thì ô B10 là cuối, khi thì B100 là cuối
Có cách nào cho nó tự fill đến ô cuối cùng của cột A có dữ liệu không anh?

bạn tìm và thay thế chỗ tôi đã sửa ở trên

 

[ndu96081631]

Code Macro là:

Sub Macro1()
'
' Macro1 Macro
'

'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!C[-1]:C,2,0)"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B19")
Range("B1:B19").Select


End Sub



Vấn đề em gặp phải là Marcro này sẽ fill xuống ô B19 là cuối cùng.
Tuy nhiên dữ liệu của em nó thay đổi, khi thì ô B10 là cuối, khi thì B100 là cuối
Có cách nào cho nó tự fill đến ô cuối cùng của cột A có dữ liệu không anh?

Thử vầy xem:

Sub Macro1()
  With Sheets("Sheet1")
    .Range(.Range("A1"), .Range("A60000").End(xlUp)).Offset(, 1).Value = "=VLOOKUP(RC[-1],Sheet2!R1C1:R10000C2,2,0)"
  End With
End Sub

 

[Ngoai Thanh]

.[/QUOTE]
Thêm tý ty cho bạn tham khảo :

Sub Macro1()
Range("B1:B" & Range("A60000").End(xlUp)).FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!C[-1]:C,2,0)"
End Sub