Lấy dữ liệu xuống dòng cuối

hongphuong1997 · 14/8/18

Nhờ anh chị giúp bài như file đính kèm
Em xin cảm ơn.

phulien1902 · 14/8/18

hongphuong1997 đã viết:
Nhờ anh chị giúp bài như file đính kèm
Em xin cảm ơn.

Thử:

PHP:

Sub abc()
    Dim LR As Long
    LR = Sheets("PTDL").Cells(Rows.Count, "B").End(xlUp).Row + 1
    With Sheets("PTDL")
        .Range("B3:L8").Copy Sheets("PTDL").Range("B" & LR)
     End With
End Sub

be_09 · 14/8/18

phulien1902 đã viết:
Thử:

PHP:

Sub abc() Dim LR As Long LR = Sheets("PTDL").Cells(Rows.Count, "B").End(xlUp).Row + 1 With Sheets("PTDL") .Range("B3:L8").Copy Sheets("PTDL").Range("B" & LR) End With End Sub

Có nhiều khi cũng chưa đúng ý chủ Topic, xem lại dữ liệu dòng 5 với dòng 14 (bài 1) dữ liệu là khác nhau.
Cái vụ này có thể chủ Topic đưa ra ví dụ sai.

phulien1902 · 14/8/18

be09 đã viết:
Có nhiều khi cũng chưa đúng ý chủ Topic, xem lại dữ liệu dòng 5 với dòng 14 (bài 1) dữ liệu là khác nhau.
Cái vụ này có thể chủ Topic đưa ra ví dụ sai.

Bác à, chủ Topic yêu cầu đưa dữ liệu bảng 1 xuống dòng cuối bảng 2. Đâu phải lấy kết quả giống bảng 2 đâu bác?

be_09 · 14/8/18

phulien1902 đã viết:
Bác à, chủ Topic yêu cầu đưa dữ liệu bảng 1 xuống dòng cuối bảng 2. Đâu phải lấy kết quả giống bảng 2 đâu bác?

Thì tôi có nêu rồi:
Cái vụ này có thể chủ Topic đưa ra ví dụ sai.

hongphuong1997 · 14/8/18

phulien1902 đã viết:
Thử:

PHP:

Sub abc() Dim LR As Long LR = Sheets("PTDL").Cells(Rows.Count, "B").End(xlUp).Row + 1 With Sheets("PTDL") .Range("B3:L8").Copy Sheets("PTDL").Range("B" & LR) End With End Sub

ơ không phải anh ơi (Không biết có phải là anh không mọi người sui em như vậy)
Lấy dữ liệu xuống dòng cuối cùng như bảng 2 cơ mà anh.
Đằng này anh lại lấy giữ liệu của bảng 2 về vị trí cũ rồi.
Anh xem lại giúp em với anh
phulien1902

Bài đã được tự động gộp: 14/8/18

be09 đã viết:
Thì tôi có nêu rồi:
Cái vụ này có thể chủ Topic đưa ra ví dụ sai.

Cháu không sai đâu bác @be09 có anh @phulien1902 đang làm lệch đề bác oy

Bài đã được tự động gộp: 14/8/18

phulien1902 đã viết:
Thử:

PHP:

Sub abc() Dim LR As Long LR = Sheets("PTDL").Cells(Rows.Count, "B").End(xlUp).Row + 1 With Sheets("PTDL") .Range("B3:L8").Copy Sheets("PTDL").Range("B" & LR) End With End Sub

Em sửa lại như này cho anh dễ hiểu anh
phulien1902

be_09 · 14/8/18

hongphuong1997 đã viết:
ơ không phải anh ơi (Không biết có phải là anh không mọi người sui em như vậy)
............................................
Cháu không sai đâu bác @be09 có anh @phulien1902 đang làm lệch đề bác oy

Đọc lại bài 3.

phulien1902 · 14/8/18

hongphuong1997 đã viết:
ơ không phải anh ơi (Không biết có phải là anh không mọi người sui em như vậy)
Lấy dữ liệu xuống dòng cuối cùng như bảng 2 cơ mà anh.
Đằng này anh lại lấy giữ liệu của bảng 2 về vị trí cũ rồi.
Anh xem lại giúp em với anh
phulien1902

Bài đã được tự động gộp: 14/8/18

Cháu không sai đâu bác @be09 có anh @phulien1902 đang làm lệch đề bác oy

Bài đã được tự động gộp: 14/8/18

Em sửa lại như này cho anh dễ hiểu anh
phulien1902

Đơn giản mà:

PHP:

Sub abc2()
    Dim LR As Long
    LR = Sheets("PTDL").Cells(Rows.Count, "B").End(xlUp).Row + 4
    With Sheets("PTDL")
        .Range("B3:F8").Copy Sheets("PTDL").Range("B" & LR)
        .Range("H3:J8").Copy Sheets("PTDL").Range("H" & LR)
        .Range("G3:G8").Copy Sheets("PTDL").Range("G" & LR + 1)
        .Range("K3:K8").Copy Sheets("PTDL").Range("K" & LR + 2)
    End With
End Sub

hongphuong1997 · 14/8/18

phulien1902 đã viết:

Đơn giản mà:

PHP:

Sub abc2()
    Dim LR As Long
    LR = Sheets("PTDL").Cells(Rows.Count, "B").End(xlUp).Row + 4
    With Sheets("PTDL")
        .Range("B3:F8").Copy Sheets("PTDL").Range("B" & LR)
        .Range("H3:J8").Copy Sheets("PTDL").Range("H" & LR)
        .Range("G3:G8").Copy Sheets("PTDL").Range("G" & LR + 1)
        .Range("K3:K8").Copy Sheets("PTDL").Range("K" & LR + 2)
    End With
End Sub

Cảm ơn anh, làm như này thì thủ công quá anh ơi, anh thử nghĩ xem có cách khác không anh?

phulien1902 · 14/8/18

hongphuong1997 đã viết:
Cảm ơn anh, làm như này thì thủ công quá anh ơi, anh thử nghĩ xem có cách khác không anh?

Hãy chờ thành viên khác viết bài, tôi dừng tại đây.

hongphuong1997 · 14/8/18

phulien1902 đã viết:
Hãy chờ thành viên khác viết bài, tôi dừng tại đây.

Em cứ tưởng bài này rất dễ, chỉ cần tìm dòng cuối có dữ liệu của bảng 1 sau đó kéo nó xuống bảng 2 là xong
Thế mà khó sử quá ta.

truongvu317 · 14/8/18

Bài này dễ không mà, cứ dùng vba kiểu gì chả ra, mà sao không dùng chuột với bàn phím cho nhanh. Dùng tính năng chèn cột xem có được hơm.

hongphuong1997 · 14/8/18

truongvu317 đã viết:
Bài này dễ không mà, cứ dùng vba kiểu gì chả ra, mà sao không dùng chuột với bàn phím cho nhanh. Dùng tính năng chèn cột xem có được hơm.

hi hi.... anh viết code giúp em với
Bởi vì nó có nhiều bảng tính và có dữ liệu lớn anh ơi,

LamNA · 14/8/18

hongphuong1997 đã viết:
hi hi.... anh viết code giúp em với
Bởi vì nó có nhiều bảng tính và có dữ liệu lớn anh ơi,

Anh không biết em làm báo cáo hình dáng nó sẽ ra sao nhưng trong 147 bài viết của em ít nhiều anh thấy nhiều cái VBA em cần rất lạ.

hongphuong1997 · 14/8/18

LamNA đã viết:
Anh không biết em làm báo cáo hình dáng nó sẽ ra sao nhưng trong 147 bài viết của em ít nhiều anh thấy nhiều cái VBA em cần rất lạ.

Cái lạ như vậy thì mới quan trọng anh à
Kiểu dữ liệu cần phải như vậy để phục vụ cho mục đích khác

LamNA · 14/8/18

hongphuong1997 đã viết:
Cái lạ như vậy thì mới quan trọng anh à
Kiểu dữ liệu cần phải như vậy để phục vụ cho mục đích khác

Bật mí cái Form đi để chiêm ngưỡng và dễ hình dung hơn đó em. hehe

hongphuong1997 · 14/8/18

LamNA đã viết:
Bật mí cái Form đi để chiêm ngưỡng và dễ hình dung hơn đó em. hehe

Form gì hở anh?

befaint · 14/8/18

Để ý 10 cái chủ đề của chủ thớt/ chủ mẹt thấy rất ngộ nghĩnh, dễ thương như chủ thớt vậy. /-*+/

Mỗi chủ đề giống như một tập phim Tom & Jerry. $-\\/.$ $-\\/.$

truongvu317 · 14/8/18

LamNA đã viết:
Anh không biết em làm báo cáo hình dáng nó sẽ ra sao nhưng trong 147 bài viết của em ít nhiều anh thấy nhiều cái VBA em cần rất lạ.

Đăng thớt chủ yếu là giao lưu thả thính. Chứ cứ vba hoài nhức mắt lắm, hãy coi mõi thớt như một trò chơi, nó sẽ nhẹ nhàng cực.

hongphuong1997 · 14/8/18

befaint đã viết:
Để ý 10 cái chủ đề của chủ thớt/ chủ mẹt thấy rất ngộ nghĩnh, dễ thương như chủ thớt vậy.

Mỗi chủ đề giống như một tập phim Tom & Jerry. $-\\/.$ $-\\/.$

Như vậy mà bác cũng không giải được???
hi hi........
Cháu mà biết viết code thì í tưởng của cháu như này:
Tìm dòng cuối có dữ liệu của cột đầu tiên trong bảng sau đó dùng vòng lặp qua các cột khác và dán nó xuống bảng 2 thế là xong thui.
Cháu dùng công thức thì được mỗi 1 dòng cuối cùng bác à.

Bài đã được tự động gộp: 14/8/18

truongvu317 đã viết:
Đăng thớt chủ yếu là giao lưu thả thính. Chứ cứ vba hoài nhức mắt lắm, hãy coi mõi thớt như một trò chơi, nó sẽ nhẹ nhàng cực.

Anh hứa viết cho em mà chảng thấy đâu cả anh
truongvu317

Lấy dữ liệu xuống dòng cuối

Thành viên tiêu biểu

File đính kèm

GPE - My love

Biên Hòa, Đồng Nai

GPE - My love

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

File đính kèm

Biên Hòa, Đồng Nai

GPE - My love

Thành viên tiêu biểu

GPE - My love

Thành viên tiêu biểu

Thành viên tích cực

Thành viên tiêu biểu

Thành viên tích cực

Thành viên tiêu biểu

Thành viên tích cực

Thành viên tiêu biểu

|||||||||||||

Thành viên tích cực

Thành viên tiêu biểu

Đếm ngược thời gian