Sắp xếp lại dữ liệu đã tìm kiếm bằng VBA

[XinZhao]

Dear các bác,
Em đang tập tẹo viết VBA, hiện tại em viết được hàm để tìm dữ liệu như trong file đính kèm, nhưng khi xuất kết quả thì thì kết quả xuất hiện theo các hàng đã dò tìm, nên vậy hàng nào không có kết quả thì bị bỏ trống, bác nào xử lý giúp em là kết quả hiện ra nó đi liền mạch được ko ạ, ko để xuất hiện các dòng trống, đỡ mất thêm thao tác xóa các dòng trống, và lúc hiển thị cho kết quả lên trên dòng đầu theo vị trí mong muốn chứ không phải hiển thị từ vị trí có kết quả tìm kiếm.
Em cảm ơn.

 

[HUONGHCKT]

Dear các bác,
Em đang tập tẹo viết VBA, hiện tại em viết được hàm để tìm dữ liệu như trong file đính kèm, nhưng khi xuất kết quả thì thì kết quả xuất hiện theo các hàng đã dò tìm, nên vậy hàng nào không có kết quả thì bị bỏ trống, bác nào xử lý giúp em là kết quả hiện ra nó đi liền mạch được ko ạ, ko để xuất hiện các dòng trống, đỡ mất thêm thao tác xóa các dòng trống, và lúc hiển thị cho kết quả lên trên dòng đầu theo vị trí mong muốn chứ không phải hiển thị từ vị trí có kết quả tìm kiếm.
Em cảm ơn.

Trước hết theo tôi bạn nên
1/Dùng tiếng việt (thay vì Dear các bác = Chào các bác) bởi vì người sẽ giúp bạn đa phần là người Việt. Ta tôn trọng Tiếng ta sao phải dùng nửa Tây nửa ta thế.
2/ Trong file gửi kèm bạn nên chỉ rõ vấn đề mà bạn mong muốn. có thể làm tay kết quả một vài dòng.
3/ Bạn nói bạn viết được hàm (hàm tự tạo UDF, hay hàm của excel) mà tìm mãi cũng chẳng thấy(hay mắt tôi kém, tìm không hết). Xử lý giúp là giúp chỉnh lý lại hàm hay viết code VBA.

Giải quyết được 1,2 là sẽ có người giúp bạn thôi.
Chúc Thành công.

 

[Maika8008]

Dear các bác,
Em đang tập tẹo viết VBA, hiện tại em viết được hàm để tìm dữ liệu như trong file đính kèm, nhưng khi xuất kết quả thì thì kết quả xuất hiện theo các hàng đã dò tìm, nên vậy hàng nào không có kết quả thì bị bỏ trống, bác nào xử lý giúp em là kết quả hiện ra nó đi liền mạch được ko ạ, ko để xuất hiện các dòng trống, đỡ mất thêm thao tác xóa các dòng trống, và lúc hiển thị cho kết quả lên trên dòng đầu theo vị trí mong muốn chứ không phải hiển thị từ vị trí có kết quả tìm kiếm.
Em cảm ơn.

Sửa code 1 tí cho bạn, thêm và sửa mấy chỗ chữ đậm

Sub samson()
Dim a1(300, 4) As Variant
Dim a2(300, 1) As Variant
Dim STT(300, 1) As Variant
Dim i, j As Integer, k As Integer

k = 1
n = 300
    For i = 1 To n
      If Sheets("sheet1").Cells(i + 1, 2) = "" Then
          Exit For
      End If
      a1(i, 1) = Sheets("sheet1").Cells(i + 1, 2) 'ten coc'
      a1(i, 2) = Sheets("sheet1").Cells(i + 1, 3) 'ngay thang'
      a1(i, 3) = Sheets("sheet1").Cells(i + 1, 4) 'duong kinh'
      a1(i, 4) = Sheets("sheet1").Cells(i + 1, 5) 'khu vuc'
        If a1(i, 4) = Sheets("sheet1").Cells(2, 7) Then
          k = k + 1
          Sheets("sheet2").Cells(k, 8) = a1(i, 1)
          Sheets("sheet2").Cells(k, 9) = a1(i, 2)
          Sheets("sheet2").Cells(k, 10) = a1(i, 3)
          Sheets("sheet2").Cells(k, 11) = a1(i, 4)
        End If
     Next i
End Sub