Nhờ chỉnh sửa lại lỗi code trong excel. (1 người xem)

[truongquangtrong]

Chào các bạn mình có một câu hỏi muốn hỏi ý kiến của các bạn.
Mình có làm lại bài viết của tác giả bên trên.


Mở rộng vùng đã được đặt tên
code này mình làm theo cách của tác giả nhưng bị báo lỗi
Sub AddNewData()
Dim lRows As Long
'Sao chép dữ liệu và mở rộng DanhSach them 1 hàng
With Range("DanhSach")
lRows = .Rows.Count + 1
Range("TenThemVao").Copy Destination:=.Cells(lRows, 1)
.Resize(lRows).Name = "DanhSach"
End With
End Sub

Nhờ các bạn xem giúp.
Thank's!


Xem thêm>>> https://internetvietnam.net/

 

[befaint]

Sub AddNewData()
Dim lRows As Long
With Range("DanhSach")
    lRows = .Rows.Count + 1
    Range("TenThemVao").Copy Destination:=.Cells(lRows, 1)
    .Resize(lRows).Name = "DanhSach"
End With
End Sub