Insert nhiều row nhanh, ko cần nhiều thao tác. (1 người xem)

[vuacudem]

mình có 1 biểu nhiều dữ liệu phải insert, nhưng làm như bình thường thì lâu quá vì biểu có>3000 row. các bạn biết các nào insert nhanh hơn, hướng dẫn mình với. ví dụ như hình ảnh bên dưới


[URL=http://www.uphinhnhanh.com/view-99178a.jpg][/URL]

 

[phihndhsp]

mình có 1 biểu nhiều dữ liệu phải insert, nhưng làm như bình thường thì lâu quá vì biểu có>3000 row. các bạn biết các nào insert nhanh hơn, hướng dẫn mình với. ví dụ như hình ảnh bên dưới

không có file nên không làm giúp bạn được rồi
bài dạng này ví dụ như tại cột A có dữ liệu bắt đầu từ ô A1(đảm bảo dữ liệu phải được sắp xếp)
A2=IF(A2=A1,"",FALSE)
Sau đó sử dụng chức năng goto special chọn dữ liệu công thức sau đó chọn logic sau đó chèn hàng là ok, nếu muốn có kết quả nhanh thì gởi file lên đây

 

[vuacudem]

không có file nên không làm giúp bạn được rồi
bài dạng này ví dụ như tại cột A có dữ liệu bắt đầu từ ô A1(đảm bảo dữ liệu phải được sắp xếp)
A2=IF(A2=A1,"",FALSE)
Sau đó sử dụng chức năng goto special chọn dữ liệu công thức sau đó chọn logic sau đó chèn hàng là ok, nếu muốn có kết quả nhanh thì gởi file lên đây

insert những row có giá trị ko giống nhau, mình có gửi hình ảnh kết quả lúc cuối. bạn chỉ dẫn giúp mình với.

http://www.mediafire.com/download/ggycja7ac5baaqr/file.rar

 

[vanle33]

mình có 1 biểu nhiều dữ liệu phải insert, nhưng làm như bình thường thì lâu quá vì biểu có>3000 row. các bạn biết các nào insert nhanh hơn, hướng dẫn mình với. ví dụ như hình ảnh bên dưới

Vào đây http://www.giaiphapexcel.com/forum/showthread.php?94110-Copy-và-Paste-nhanh
Mở nhiều topic cùng nội dung ---> Vi phạm NỘI QUY

 

[vuacudem]

Vào đây http://www.giaiphapexcel.com/forum/showthread.php?94110-Copy-và-Paste-nhanh
Mở nhiều topic cùng nội dung ---> Vi phạm NỘI QUY

bạn ơi bài trước là mình hỏi về copy và paste, bài này mình muốn hỏi cách insert mà có giống nhau đâu bạn

 

[vanle33]

bạn ơi bài trước là mình hỏi về copy và paste, bài này mình muốn hỏi cách insert mà có giống nhau đâu bạn

Hình ở #4 của link tôi nói (#4 ở trên) không phải là hình ở #1 trên hay sao.

 

[Quang_Hải]

bạn ơi bài trước là mình hỏi về copy và paste, bài này mình muốn hỏi cách insert mà có giống nhau đâu bạn

Mục tiêu của bạn là chèn dòng vào rồi copy nội dung dòng trên xuống, sao không gom lại hỏi trong 1 chủ đề cho gọn?

 

[vuacudem]

mình gom lại rồi nhưng biểu của mình nhiều phần quá, có hỏi 1 lần trước đây nhưng toàn bị hiểu sai ý. Nên mình mới tách ra để hỏi cho cụ thể.

Hiện tại có insert là mình ở các row có giá trị ko giống nhau là mình tìm hiểu mãi ko đc, mong các bạn có cách nào hay chỉ mình với.

sorry vi phạm nội quy. mình sẽ để ý hơn.

 

[Quang_Hải]

mình gom lại rồi nhưng biểu của mình nhiều phần quá, có hỏi 1 lần trước đây nhưng toàn bị hiểu sai ý. Nên mình mới tách ra để hỏi cho cụ thể.

Hiện tại có insert là mình ở các row có giá trị ko giống nhau là mình tìm hiểu mãi ko đc, mong các bạn có cách nào hay chỉ mình với.

sorry vi phạm nội quy. mình sẽ để ý hơn.

Viêt cho bạn cái code để chèn dòng rồi copy
Theo cái hình thì nội dung bắt đầu từ ô A2 và có 4 cột, nếu bạn muốn tăng số cột thì cứ sửa tại dòng code này
Cot= 4 ( có nghĩa là đếm từ A đến D là 4 cột)

Sub Chen_Copy()
Dim nguon(), i, kq(), j, k, ii, cot
cot = 4
nguon = Range([A2], [A65536].End(3).Offset(1)).Resize(, cot).Value
ReDim kq(1 To UBound(nguon) * 2, 1 To cot)
For i = 1 To UBound(nguon) - 1
    If nguon(i, 1) <> nguon(i + 1, 4) Then
        For ii = 1 To 2
            k = k + 1
            For j = 1 To cot
                kq(k, j) = nguon(i, j)
            Next
        Next
    Else
        k = k + 1
        For j = 1 To cot
            kq(k, j) = nguon(i, j)
        Next
    End If
Next
[A2].Resize(k, cot) = kq
End Sub

Hoặc thế này ngắn hơn tẹo

Sub Chen_Copy()
Dim nguon(), I, kq(), J, K, II, JJ, Cot
Cot = 4
nguon = Range([A2], [A65536].End(3).Offset(1)).Resize(, Cot).Value
ReDim kq(1 To UBound(nguon) * 2, 1 To Cot)
For I = 1 To UBound(nguon) - 1
    II = IIf(nguon(I, 1) <> nguon(I + 1, 4), 2, 1)
    For JJ = 1 To II
        K = K + 1
        For J = 1 To Cot
            kq(K, J) = nguon(I, J)
        Next
    Next
Next
[A2].Resize(K, Cot) = kq
End Sub

 

[vuacudem]

Viêt cho bạn cái code để chèn dòng rồi copy
Theo cái hình thì nội dung bắt đầu từ ô A2 và có 4 cột, nếu bạn muốn tăng số cột thì cứ sửa tại dòng code này
Cot= 4 ( có nghĩa là đếm từ A đến D là 4 cột)

Sub Chen_Copy()
Dim nguon(), i, kq(), j, k, ii, cot
cot = 4
nguon = Range([A2], [A65536].End(3).Offset(1)).Resize(, cot).Value
ReDim kq(1 To UBound(nguon) * 2, 1 To cot)
For i = 1 To UBound(nguon) - 1
    If nguon(i, 1) <> nguon(i + 1, 4) Then
        For ii = 1 To 2
            k = k + 1
            For j = 1 To cot
                kq(k, j) = nguon(i, j)
            Next
        Next
    Else
        k = k + 1
        For j = 1 To cot
            kq(k, j) = nguon(i, j)
        Next
    End If
Next
[A2].Resize(k, cot) = kq
End Sub

Hoặc thế này ngắn hơn tẹo

Sub Chen_Copy()
Dim nguon(), I, kq(), J, K, II, JJ, Cot
Cot = 4
nguon = Range([A2], [A65536].End(3).Offset(1)).Resize(, Cot).Value
ReDim kq(1 To UBound(nguon) * 2, 1 To Cot)
For I = 1 To UBound(nguon) - 1
    II = IIf(nguon(I, 1) <> nguon(I + 1, 4), 2, 1)
    For JJ = 1 To II
        K = K + 1
        For J = 1 To Cot
            kq(K, J) = nguon(I, J)
        Next
    Next
Next
[A2].Resize(K, Cot) = kq
End Sub

code thì mình đúng là ko biết j bạn ơi mình có gửi file và ảnh kết quả cuối cùng mà mình muốn insert những hàng có giá trị ko giống nhau. bạn xem hộ mình với.

http://www.mediafire.com/download/ggycja7ac5baaqr/file.rar

 

[cadafi]

code thì mình đúng là ko biết j bạn ơi mình có gửi file và ảnh kết quả cuối cùng mà mình muốn insert những hàng có giá trị ko giống nhau. bạn xem hộ mình với.

http://www.mediafire.com/download/ggycja7ac5baaqr/file.rar

Bạn thử xài đỡ chức năng Subtotal của Excel thử xem! Trước khi làm bạn nhớ sort theo cột họ và tên trước nha!

 

[vuacudem]

Bạn thử xài đỡ chức năng Subtotal của Excel thử xem! Trước khi làm bạn nhớ sort theo cột họ và tên trước nha!

mình đã làm theo như bạn hướng dẫn, nhưng chưa lọc hết những dòng có giá khác nhau nữa bạn ạ, ở đây mới chỉ lọc cột A, cột b-c-d vẫn còn giá trị ko giống nhau. Dưới đây là hình ảnh mình muốn lọc và chèn dòng để có KQ cuối cùng. Vì biểu của mình có >3000 dòng,hix.

 

[cadafi]

Trong trường hợp này bạn nên mượn 1 cột tạm, sau đó nối chuỗi toàn bộ các cột liên quan và sort theo cột tạm này rồi dùng chức năng subtotal trên cột này. Bạn thử xem nhé.

 

[vuacudem]

Trong trường hợp này bạn nên mượn 1 cột tạm, sau đó nối chuỗi toàn bộ các cột liên quan và sort theo cột tạm này rồi dùng chức năng subtotal trên cột này. Bạn thử xem nhé.

mình ko hiểu lắm bạn nói cụ thể hơn giúp mình với. dưới đây ảnh kq cuối mà mình muốn chèn dòng.

 

[cadafi]

Bạn xem hình minh họa nha!

 

[vuacudem]

Bạn xem hình minh họa nha!

hix thank bạn nhiều nhiều nha đã làm đc rồi bạn ạ, hay quá

 

[phihndhsp]

code thì mình đúng là ko biết j bạn ơi mình có gửi file và ảnh kết quả cuối cùng mà mình muốn insert những hàng có giá trị ko giống nhau. bạn xem hộ mình với.

http://www.mediafire.com/download/ggycja7ac5baaqr/file.rar

TẠI Ô E3=IF(A3=A2,"",FALSE)
SAU ĐÓ CHỌN HẾT Ô E3 CHỌN GOTO SPECIAL -> FORMULAR-> LOGICALS -> NHẤN NÚT INSERT DÒNG LÀ OK không cần code kiết gì đâu