Hỏi về trích lọc dữ liệu duy nhất từ một mảng (8 người xem)

sealand · 9/5/13

Theo mình KhanHa nên chuyển Code như sau dễ hiệu chỉnh và điều khiển cộng dữ liệu vì ta dùng luôn Item của Dic tính giá trị Tổng luôn

Mã:

Private Sub CommandButton1_Click()
 Dim Data1, Data2, i, j
  Data1 = [A5].Resize(65000, 12).Value
   Data2 = [M5].Resize(65000, 12).Value
    With CreateObject("scripting.dictionary")
     For i = 1 To UBound(Data1, 1)
      For j = 1 To UBound(Data1, 2)
       If Data1(i, j) <> "" Then
        If Not .Exists(Data1(i, j)) Then
         .Add Data1(i, j), Data2(i, j)
          Else
         .item(Data1(i, j)) = .item(Data1(i, j)) + Data2(i, j)
       End If
      End If
    Next
   Next
  Range("Y5:Y" & [Y5].End(xlDown).Row).ClearContents
 [Y5].Resize(.Count) = Application.Transpose(.keys)
[Z5].Resize(.Count) = Application.Transpose(.Items)
End With
End Sub

khamha · 9/5/13

Các bạn xem thêm các điều kiện:
1, Trong các ô nội dung: có nội dung là Text “có ít trường hợp có kèm theo số” và nội dung trong các ô là từ 2 trở lên ,nếu ko có nội dung thì sẽ nhập dấu chấm “.”
2, Trong các ô số tiền: có nội dung là số ,nếu ô tương ứng trong ô nội dung là dấu chấm “.” Thì ô tại số tiền sẽ nhập số 0 “không” và hiện thị dưới dạng "-"
3, Tại Cột N1 dữ liệu là liên tục.

ndu96081631 · 9/5/13

khamha đã viết:
Các bạn xem thêm các điều kiện:
1, Trong các ô nội dung: có nội dung là Text “có ít trường hợp có kèm theo số” và nội dung trong các ô là từ 2 trở lên ,nếu ko có nội dung thì sẽ nhập dấu chấm “.”
2, Trong các ô số tiền: có nội dung là số ,nếu ô tương ứng trong ô nội dung là dấu chấm “.” Thì ô tại số tiền sẽ nhập số 0 “không” và hiện thị dưới dạng "-"
3, Tại Cột N1 dữ liệu là liên tục.

Tặng bạn hàm SummaryData chuyên làm việc này:

Mã:

Function SummaryData(ByVal DataRange As Range, ByVal SumRange As Range)
  Dim lR As Long, lC As Long, n As Long,
  Dim aData, aSum, tmp1, tmp2
  On Error Resume Next
  If DataRange.Count > 1 Then
    aData = DataRange.Value: aSum = SumRange.Value
    ReDim arr(1 To 2, 1 To 1)
    With CreateObject("Scripting.Dictionary")
      For lR = 1 To UBound(aData, 1)
        For lC = 1 To UBound(aData, 2)
          tmp1 = CStr(aData(lR, lC))
          tmp2 = CDbl(aSum(lR, lC))
          If Len(tmp1) Then
            If Not .Exists(tmp1) Then
              n = n + 1
              .Add tmp1, n
              ReDim Preserve arr(1 To 2, 1 To n)
              arr(1, n) = tmp1
              arr(2, n) = tmp2
            Else
              arr(2, .item(tmp1)) = arr(2, .item(tmp1)) + tmp2
            End If
          End If
        Next
      Next
      If n Then
        ReDim aRes(1 To n, 1 To 2)
        For lR = 1 To UBound(arr, 2)
          aRes(lR, 1) = arr(1, lR)
          aRes(lR, 2) = arr(2, lR)
        Next
        SummaryData = aRes
      End If
    End With
  End If
End Function

Viết code áp dụng để tổng hợp:

Mã:

Sub Main()
  Dim aRes
  Application.ScreenUpdating = False
  With Sheet1
    .Range("Y5:Z20000").ClearContents
    aRes = [B]SummaryData([COLOR=#ff0000].Range("A5:L20000")[/COLOR], .[COLOR=#0000cd]Range("M5:X20000")[/COLOR])[/B]
    If IsArray(aRes) Then
      .Range("Y5:Z5").Resize(UBound(aRes, 1), 2).Value = aRes
    End If
  End With
  Application.ScreenUpdating = True
End Sub

Chỉ cần nhớ cú pháp của hàm: SummaryData(Vùng dữ liệu, Vùng tính tổng) là được rồi
Code trong hàm bạn không cần quan tâm, mai này áp dụng cho dữ liệu khác, chỉ cần sửa Sub Main, thay đổi tham chiếu cho phù hợp là xong!

sealand · 9/5/13

khamha đã viết:
Các bạn xem thêm các điều kiện:
1, Trong các ô nội dung: có nội dung là Text “có ít trường hợp có kèm theo số” và nội dung trong các ô là từ 2 trở lên ,nếu ko có nội dung thì sẽ nhập dấu chấm “.”
2, Trong các ô số tiền: có nội dung là số ,nếu ô tương ứng trong ô nội dung là dấu chấm “.” Thì ô tại số tiền sẽ nhập số 0 “không” và hiện thị dưới dạng "-"
3, Tại Cột N1 dữ liệu là liên tục.

Mình hiệu chỉnh Code như sau:

PHP:

Private Sub CommandButton1_Click()
 Dim Data1, Data2, i, j
  Data1 = [A5].Resize(65000, 12).Value
   Data2 = [M5].Resize(65000, 12).Value
    With CreateObject("scripting.dictionary")
     For i = 1 To UBound(Data1, 1)
      For j = 1 To UBound(Data1, 2)
       If Data1(i, j) <> "" Or Data1(i, j) <> "." Then
         If Not .Exists(Data1(i, j)) Then
         .Add Data1(i, j), Data2(i, j)
          Else
         .item(Data1(i, j)) = .item(Data1(i, j)) + Data2(i, j)
       End If
       Else
       Data1(i, j) = ".": Data2(i, j) = 0
      End If
    Next
   Next
  Range("Y5:Y" & [Y5].End(xlDown).Row).ClearContents
 [Y5].Resize(.Count) = Application.Transpose(.keys)
[Z5].Resize(.Count) = Application.Transpose(.Items)
End With
[A5].Resize(65000, 12).Value = Data1
[M5].Resize(65000, 12).Value = Data2
[M5].Resize(65000, 12).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
End Sub

khamha · 10/5/13

Cảm ơn các bạn đã giúp ,Các cách trên phải nói là rất chuẩn ,Tuy nó vẫn chưa loại được các nội dung có dấu chấm “.” .
Mình có một bài nữa nhờ các bạn giúp ,nó cũng tương tự như bài trên ,chỉ thêm một điều kiện nữa ,Nên mình hỏi luôn ở đây ,Để dễ hiểu ,Các bạn xem File giúp mình tiếp nhé.
* Điều kiện:
1, Lọc thêm loại "L1 ,L2...L5"
2, Sắp xếp nội dung sau khi lọc theo danh sách trước , sau giống như dữ liệu nguồn ở Cột "AL"

* Nhờ MOD xóa hộ File đính kèm: Loc2DieuKien-TinhTong.7z ---> Xong

concogia · 10/5/13

khamha đã viết:
Cảm ơn các bạn đã giúp ,Các cách trên phải nói là rất chuẩn ,Tuy nó vẫn chưa loại được các nội dung có dấu chấm “.” .
Mình có một bài nữa nhờ các bạn giúp ,nó cũng tương tự như bài trên ,chỉ thêm một điều kiện nữa ,Nên mình hỏi luôn ở đây ,Để dễ hiểu ,Các bạn xem File giúp mình tiếp nhé.
* Điều kiện:
1, Lọc thêm loại "L1 ,L2...L5"
2, Sắp xếp nội dung sau khi lọc theo danh sách trước , sau giống như dữ liệu nguồn ở Cột "AL"

* Nhờ MOD xóa hộ File đính kèm: Loc2DieuKien-TinhTong.7z

Bạn khamha thân mến, bạn có thể dịch giúp mình sang tiếng Lào mấy câu này được không

Bạn có thể vui lòng phang vào cái bảng của bạn kết quả mà bạn muốn, xem mặt mũi nó ra sao ????
Đoạn từ cột Z ==> AI thỉ hơi hơi hiểu,không biết khi lọc ra nó xếp liên tục hay nhảy cà tưng theo cột AL ?
Còn cột AJ & AK thì............cóc có hiểu

Híc
Thân

khamha · 10/5/13

concogia đã viết:
Bạn khamha thân mến, bạn có thể dịch giúp mình sang tiếng Lào mấy câu này được không

Híc
Thân

Đã phang theo lệnh của SPCG và sửa lại ý là: lọc xong thì chuyển kết quả sang Sheet "BáoCáo1" ,SPCG xem và giúp khamha nhé,Thank
* Sắp xếp nội dung sau khi lọc theo danh sách trước , sau giống như dữ liệu nguồn.

sealand · 10/5/13

khamha đã viết:
Cảm ơn các bạn đã giúp ,Các cách trên phải nói là rất chuẩn ,Tuy nó vẫn chưa loại được các nội dung có dấu chấm “.” .
Mình có một bài nữa nhờ các bạn giúp ,nó cũng tương tự như bài trên ,chỉ thêm một điều kiện nữa ,Nên mình hỏi luôn ở đây ,Để dễ hiểu ,Các bạn xem File giúp mình tiếp nhé.
* Điều kiện:
1, Lọc thêm loại "L1 ,L2...L5"
2, Sắp xếp nội dung sau khi lọc theo danh sách trước , sau giống như dữ liệu nguồn ở Cột "AL"

* Nhờ MOD xóa hộ File đính kèm: Loc2DieuKien-TinhTong.7z ---> Xong

Tự mình xoá file kèm được mà, vào sửa bài---Chọn khung lớn---Chọn tải file từ máy
Trong đó có sẵn file kèm, chọn nó rồi nhấn Remove là được

concogia · 10/5/13

khamha đã viết:
Đã phang theo lệnh của SPCG và sửa lại ý là: lọc xong thì chuyển kết quả sang Sheet "BáoCáo1" ,SPCG xem và giúp khamha nhé,Thank
* Sắp xếp nội dung sau khi lọc theo danh sách trước , sau giống như dữ liệu nguồn.

1)- Dữ liệu sao dấu cột, coi chừng lại sửa nữa
2)- Dữ liệu giả định, có cái bảng "Nội dung" để làm chuẩn sắp xếp thì..........lại xóa đi mất, biết sắp xếp kiểu nào hả Trời ??? - Phục hồi lại cái bảng đó
3)- Dữ liệu lúc thì có cái dấu chấm, lúc thì để trống, mắc cười chưa ???
Híc
Thử chạy code này:

Mã:

Public Sub GPE()
    Dim Vung, NoiDung, Loai, Cot, Hang, Tam, I, J, K, Mg, d, Kq
    Vung = Sheets("F").Range(Sheets("F").[AH6], Sheets("F").[AH50000].End(xlUp)).Resize(, 35)
    Set d = CreateObject("scripting.dictionary")
    Set NoiDung = Sheets("F").Range(Sheets("F").[BR6], Sheets("F").[BR5000].End(xlUp))
    Set Loai = Sheets("BC1").Range("C6:G6")
    ReDim Mg(1 To NoiDung.Rows.Count, 1 To 6)
        For I = 1 To UBound(Vung)
            For J = 11 To 22
                If Vung(I, J) <> "." Then
                    If Vung(I, J) <> " " Then
                        Tam = Vung(I, 1) & Vung(I, J)
                            Cot = Application.WorksheetFunction.Match(Vung(I, 1), Loai, 0)
                            Hang = Application.WorksheetFunction.Match(Vung(I, J), NoiDung, 0)
                            If Not d.exists(Tam) Then
                                d.Add Tam, ""
                                Mg(Hang, 1) = Vung(I, J): Mg(Hang, Cot + 1) = Vung(I, J + 12)
                            Else
                                Mg(Hang, Cot + 1) = Mg(Hang, Cot + 1) + Vung(I, J + 12)
                            End If
                     End If
                  End If
                  
            Next J
        Next I
            ReDim Kq(1 To d.Count, 1 To 6)
            For I = 1 To NoiDung.Rows.Count
                If Mg(I, 1) <> "" Then
                    K = K + 1
                    For J = 1 To 6
                        Kq(K, J) = Mg(I, J)
                    Next J
                End If
            Next I
    Sheets("BC1").[B9].Resize(K, 6) = Kq
    Range([B9], [b1000].End(xlUp)).Offset(, -1) = [row(A:A)]
End Sub

Thân
Xí quên, các công thức trong bảng kết quả mình hổng có đụng tới nó à nha, code chạy từ cột A ==> G, phần màu vàng cũng hông có đụng tới luôn

khamha · 10/5/13

concogia đã viết:

1)- Dữ liệu sao dấu cột, coi chừng lại sửa nữa
2)- Dữ liệu giả định, có cái bảng "Nội dung" để làm chuẩn sắp xếp thì..........lại xóa đi mất, biết sắp xếp kiểu nào hả Trời ??? - Phục hồi lại cái bảng đó
3)- Dữ liệu lúc thì có cái dấu chấm, lúc thì để trống, mắc cười chưa ???
Híc
Thử chạy code này:

Mã:

Public Sub GPE()
    Dim Vung, NoiDung, Loai, Cot, Hang, Tam, I, J, K, Mg, d, Kq
    Vung = Sheets("F").Range(Sheets("F").[AH6], Sheets("F").[AH50000].End(xlUp)).Resize(, 35)
    Set d = CreateObject("scripting.dictionary")
    Set NoiDung = Sheets("F").Range(Sheets("F").[BR6], Sheets("F").[BR5000].End(xlUp))
    Set Loai = Sheets("BC1").Range("C6:G6")
    ReDim Mg(1 To NoiDung.Rows.Count, 1 To 6)
        For I = 1 To UBound(Vung)
            For J = 11 To 22
                If Vung(I, J) <> "." Then
                    If Vung(I, J) <> " " Then
                        Tam = Vung(I, 1) & Vung(I, J)
                            Cot = Application.WorksheetFunction.Match(Vung(I, 1), Loai, 0)
                            Hang = Application.WorksheetFunction.Match(Vung(I, J), NoiDung, 0)
                            If Not d.exists(Tam) Then
                                d.Add Tam, ""
                                Mg(Hang, 1) = Vung(I, J): Mg(Hang, Cot + 1) = Vung(I, J + 12)
                            Else
                                Mg(Hang, Cot + 1) = Mg(Hang, Cot + 1) + Vung(I, J + 12)
                            End If
                     End If
                  End If
                  
            Next J
        Next I
            ReDim Kq(1 To d.Count, 1 To 6)
            For I = 1 To NoiDung.Rows.Count
                If Mg(I, 1) <> "" Then
                    K = K + 1
                    For J = 1 To 6
                        Kq(K, J) = Mg(I, J)
                    Next J
                End If
            Next I
    Sheets("BC1").[B9].Resize(K, 6) = Kq
    Range([B9], [b1000].End(xlUp)).Offset(, -1) = [row(A:A)]
End Sub

Thân
Xí quên, các công thức trong bảng kết quả mình hổng có đụng tới nó à nha, code chạy từ cột A ==> G, phần màu vàng cũng hông có đụng tới luôn

Chà...Chuẩn ko cần chỉnh ,Tiếc là ko ở gần nhau...Chứ ở gần là bắt phải đi nhậu một bữa "Ko say ko về" Cảm ơn SPCG nhiều.

khamha · 10/5/13

Nhờ SPCG giúp bổ sung cho cái bài trên như sau:
- Tự động ẩn dòng trống ,sau khi cập nhật dữ liệu (xem ảnh)

* Trong File trên ,Còn phải lọc thêm 03 kiểu “BáoCáo” nữa , Trong 03 kiểu “BáoCáo” đó phải lọc dữ liệu từ 02 Sheet...là Sheet “F_TDN” (Từ đầu năm) và Sheet “F” (Tháng này) , nhờ SPCG bớt chút thời gian,giúp mình tiếp nhé,Thank

khamha · 11/5/13

Do mạng chậm quá ,khi mở ra chỉ thấy 3 trang,cứ tưởng là bài chưa gửi được ,nên lại gửi tiếp...nhân tiện thử xem chỉ dẫn của bạn Sealand luôn.

sealand đã viết:
Tự mình xoá file kèm được mà, vào sửa bài---Chọn khung lớn---Chọn tải file từ máy
Trong đó có sẵn file kèm, chọn nó rồi nhấn Remove là được

concogia · 12/5/13

khamha đã viết:
Nhờ SPCG giúp bổ sung cho cái bài trên như sau:
- Tự động ẩn dòng trống ,sau khi cập nhật dữ liệu (xem ảnh)

* Trong File trên ,Còn phải lọc thêm 03 kiểu “BáoCáo” nữa , Trong 03 kiểu “BáoCáo” đó phải lọc dữ liệu từ 02 Sheet...là Sheet “F_TDN” (Từ đầu năm) và Sheet “F” (Tháng này) , nhờ SPCG bớt chút thời gian,giúp mình tiếp nhé,Thank

Bài này còn nhiều vấn đề chưa hiểu lắm, làm tạm thôi, xỉn quá rồi
Bạn kiểm tra giúp
Thân

khamha · 13/5/13

concogia đã viết:
Bài này còn nhiều vấn đề chưa hiểu lắm, làm tạm thôi, xỉn quá rồi
Bạn kiểm tra giúp
Thân

Đúng là nội công của SPCG thâm hậu thật ,đang xỉn mà viết Code vẫn chuẩn.
Mấy cái báo cáo đấy ,trước đây mình làm thủ công và theo cách củ chuối của riêng mình ,thì cái File rất nặng (hơn 3M) và chạy rất nhanh như rùa...

Nhờ SPCG giúp mình thêm một vấn đề nữa là: nếu chỉ lọc một danh sách ,loại bỏ dữ liệu trùng và sắp xếp theo thứ tự đã quy định sẵn thì phải sửa đoạn Code lại như thế nào ? ví dụ mình muốn lọc "Bộ Phận" chẳng hạn.Thank

concogia · 14/5/13

khamha đã viết:
Nhờ SPCG giúp mình thêm một vấn đề nữa là: nếu chỉ lọc một danh sách ,loại bỏ dữ liệu trùng và sắp xếp theo thứ tự đã quy định sẵn thì phải sửa đoạn Code lại như thế nào ? ví dụ mình muốn lọc "Bộ Phận" chẳng hạn.Thank

Híc

Khamha vui lòng gởi file, nói rõ yêu cầu lọc, kết quả ra sao? Kết quả xuất ra ở chỗ nào ?...
Híc, gởi bài quá trời mà còn hỏi như "dzị", trách chi thành viên mới
Thân

khamha · 14/5/13

Vì phải áp dụng vào nhiều File khác lên tiện thể hỏi một chỗ luôn ,Mình cũng tự mày mò sửa bớt cái Code của SPCG nhưng chắc do trình độ quá cùn lên cứa hổng có đứt !!!
Ý mình là chỉ muốn lọc dữ liệu trùng và sắp xếp lại theo danh sách có sẵn ,chứ ko cần tính toán nữa.SP xem File giúp mình nhé.

SPCG nói như bài trên đúng quá !!! Chắc phải đề nghị Admin bớt sao mới được...

Ba Tê · 14/5/13

khamha đã viết:
Vì phải áp dụng vào nhiều File khác lên tiện thể hỏi một chỗ luôn ,Mình cũng tự mày mò sửa bớt cái Code của SPCG nhưng chắc do trình độ quá cùn lên cứa hổng có đứt !!!
Ý mình là chỉ muốn lọc dữ liệu trùng và sắp xếp lại theo danh sách có sẵn ,chứ ko cần tính toán nữa.SP xem File giúp mình nhé.

SPCG nói như bài trên đúng quá !!! Chắc phải đề nghị Admin bớt sao mới được...

Với kiểu dữ liệu "ví dụ a1,B1,Q1..." rồi kéo xuống đến 100 chắc không thật, rồi sort theo kiểu số hay kiểu chuỗi?
Tạm Sort theo kiểu chuỗi đi, hổng chịu thì nhờ "Lão Cò" uýnh tiếp.
Híc!

khamha · 14/5/13

Ba Tê đã viết:
Với kiểu dữ liệu "ví dụ a1,B1,Q1..." rồi kéo xuống đến 100 chắc không thật, rồi sort theo kiểu số hay kiểu chuỗi?
Tạm Sort theo kiểu chuỗi đi, hổng chịu thì nhờ "Lão Cò" uýnh tiếp.
Híc!

Cảm ơn bạn BaTê, sort theo chuỗi là OK ,Nhưng nó chưa sắp xếp theo danh sách trước sau có sẵn trong cột:
F!BR = Nội Dung
F!BS = Bộ Phận
F!BT = Quy Cách

concogia · 14/5/13

Ba Tê đã viết:
Với kiểu dữ liệu "ví dụ a1,B1,Q1..." rồi kéo xuống đến 100 chắc không thật, rồi sort theo kiểu số hay kiểu chuỗi?
Tạm Sort theo kiểu chuỗi đi, hổng chịu thì nhờ "Lão Cò" uýnh tiếp.
Híc!

Híc, tưng quá
Không cần sort đâu bạn già Ba Tê ạ, nên không quan tâm sắp xếp theo kiểu số hay chuỗi. Ta sắp xếp theo bảng dữ liệu cho trước, trong bài là 3 bảng "Nội dung" , "Quy cách", "Bộ phận"
Mỗi người có một cách giải khác nhau, mình thì làm theo kiểu thế này, thí dụ với "Quy cách"
Tạo nút bấm ở sheet "Quycach" ( đây chỉ là ví dụ, bạn có thể chạy code tùy ý) chạy code này:

Mã:

Private Sub CommandButton1_Click()
    Dim QuyCach As Range, Vung As Variant, I As Long, K As Long, d As Object, Hang As Long, Tam As Variant, Kq As Variant
    Set d = CreateObject("scripting.dictionary")
    Set QuyCach = Sheets("F").Range(Sheets("F").[BT6], Sheets("F").[BT10000].End(xlUp))
    ReDim Tam(1 To QuyCach.Rows.Count, 1 To 1)
    Vung = Sheets("F").Range(Sheets("F").[AG6], Sheets("F").[AG10000].End(xlUp))
        For I = 1 To UBound(Vung)
            If Not d.exists(Vung(I, 1)) Then
                Hang = Application.WorksheetFunction.Match(Vung(I, 1), QuyCach, 0)
                d.Add Vung(I, 1), ""
                Tam(Hang, 1) = Vung(I, 1)
            End If
        Next I
            ReDim Kq(1 To QuyCach.Rows.Count, 1 To 1)
            For I = 1 To QuyCach.Rows.Count
                If Tam(I, 1) <> "" Then
                    K = K + 1
                    Kq(K, 1) = Tam(I, 1)
                End If
            Next I
    Sheets("quycach").[D10].Resize(K, 1) = Kq
End Sub

Tưng quá, làm một cái thôi, 2 cái còn lại tương tự, riêng mấy cái thằng a1, a2..............phải thêm điều kiện khác dấu chấm (".")
Nếu trúng thì tốt, hổng trúng thì bạn khamha nhờ thầy Ba Tê giúp tiếp nhé, hihi
Híc
Thân

khamha · 15/5/13

concogia đã viết:
Híc, tưng quá
Không cần sort đâu bạn già Ba Tê ạ, nên không quan tâm sắp xếp theo kiểu số hay chuỗi. Ta sắp xếp theo bảng dữ liệu cho trước, trong bài là 3 bảng "Nội dung" , "Quy cách", "Bộ phận"
Mỗi người có một cách giải khác nhau, mình thì làm theo kiểu thế này, thí dụ với "Quy cách"
Tạo nút bấm ở sheet "Quycach" ( đây chỉ là ví dụ, bạn có thể chạy code tùy ý) chạy code này:

Mã:

Private Sub CommandButton1_Click() Dim QuyCach As Range, Vung As Variant, I As Long, K As Long, d As Object, Hang As Long, Tam As Variant, Kq As Variant Set d = CreateObject("scripting.dictionary") Set QuyCach = Sheets("F").Range(Sheets("F").[BT6], Sheets("F").[BT10000].End(xlUp)) ReDim Tam(1 To QuyCach.Rows.Count, 1 To 1) Vung = Sheets("F").Range(Sheets("F").[AG6], Sheets("F").[AG10000].End(xlUp)) For I = 1 To UBound(Vung) If Not d.exists(Vung(I, 1)) Then Hang = Application.WorksheetFunction.Match(Vung(I, 1), QuyCach, 0) d.Add Vung(I, 1), "" Tam(Hang, 1) = Vung(I, 1) End If Next I ReDim Kq(1 To QuyCach.Rows.Count, 1 To 1) For I = 1 To QuyCach.Rows.Count If Tam(I, 1) <> "" Then K = K + 1 Kq(K, 1) = Tam(I, 1) End If Next I Sheets("quycach").[D10].Resize(K, 1) = Kq End Sub

Tưng quá, làm một cái thôi, 2 cái còn lại tương tự, riêng mấy cái thằng a1, a2..............phải thêm điều kiện khác dấu chấm (".")
Nếu trúng thì tốt, hổng trúng thì bạn khamha nhờ thầy Ba Tê giúp tiếp nhé, hihi
Híc
Thân

SPCG xem lại giúp mình ,sao cái Code trên nó hoạt động trong Sheet"NoiDung" ko đúng?Thank

Hỏi về trích lọc dữ liệu duy nhất từ một mảng (8 người xem)

Người dùng đang xem chủ đề này

Thành viên gạo cội

Không có việc gì khó...

File đính kèm

Huyền thoại GPE

Thành viên gạo cội

Không có việc gì khó...

File đính kèm

Gội rồi mới Cạo

Không có việc gì khó...

File đính kèm

Thành viên gạo cội

Gội rồi mới Cạo

File đính kèm

Không có việc gì khó...

Không có việc gì khó...

File đính kèm

Không có việc gì khó...

Gội rồi mới Cạo

File đính kèm

Không có việc gì khó...

Gội rồi mới Cạo

Không có việc gì khó...

File đính kèm

Cạo Rồi Khỏi Gội

File đính kèm

Không có việc gì khó...

Gội rồi mới Cạo

File đính kèm

Không có việc gì khó...

Đếm ngược thời gian