Vlookup từ Excel sang note pad

[newex]

Nó có sẵn trong excel bạn ạ, power pivot bạn add thêm vào, bạn lên google hay youtube học cách hướng dẫn sử dung ( power query, power pivot, data model) tốt hơn nữa thì kiếm cái power Bi .
View attachment 239069
File excel chứa 2 tables 30 tr dòng lấy từ server để tạo report báo cáo 2 năm
View attachment 239070
Máy bạn mạnh thì load rất là nhanh, xử lý như excel bình thường

đen quá máy cty e dùng ko phải bản Office 365 Pro Plus hoặc Office 365 E3 không add on dc cái power pivot

 

[excel_lv1.5]

đen quá máy cty e dùng ko phải bản Office 365 Pro Plus hoặc Office 365 E3 không add on dc cái power pivot

Excel 2013 trở lên là add được rồi bạn, bạn tìm hướng dẫn add đi

 

[newex]

Excel 2013 trở lên là add được rồi bạn, bạn tìm hướng dẫn add đi

đã add dc rồi . cảm ơn bác. giờ ngồi mò

Bài đã được tự động gộp: 10/6/20

2 file để cùng thư mục
Chỉnh tên file Text theo tên thực tế
Chạy code xem có bị lổi bộ nhớ không
Code chạy rất lâu

Sub XYZ()
  Dim Dic As Object, FSo As Object, TxtFile As Object
  Dim nameText As String, iKey As String
  Dim sArr(), Res(), sRow&, i&, k&

  Set Dic = CreateObject("scripting.dictionary")
  With Sheets("Sheet1")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value2
  End With
  sRow = UBound(sArr)
  ReDim Res(1 To sRow, 1 To 1)
  For i = 1 To sRow
    Dic.Item(CStr(sArr(i, 1))) = ""
  Next i
  Erase sArr
  Set FSo = CreateObject("Scripting.FileSystemObject")
  nameText = ThisWorkbook.Path & "\notepad.txt"
  Set TxtFile = FSo.OpenTextFile(nameText)
  Do While Not TxtFile.AtEndOfLine
    iKey = TxtFile.ReadLine
    If Dic.exists(iKey) Then
      k = k + 1
      Res(k, 1) = iKey
      Dic.Remove (iKey)
    End If
  Loop
  TxtFile.Close
  Set FSo = Nothing: Set Dic = Nothing
  Sheets("Sheet1").Range("C2").Resize(k) = Res
End Sub

em cảm ơn bác nhiều. chạy mất khoảng 30p đã lọc dc dữ liệu ạ

 

[befaint]

mất khoảng 30p

Đã bảo việc của bạn chỉ cần úp file hơn 200MB kia lên thôi.
---------
Rảnh rỗi nghịch tẹo Python...
Tạo mãi mới xong cái file hơn 31 triệu dòng
... rồi chỉ tốn khoảng 10 giây là xong việc.

 

[VetMini]

bác làm giúp em vào file mẫu dc ko ạ.
...

Tôi không nói chuyện viết tắt. Đầu óc tôi lúc giải bài thì chú trọng 100% vào giải thuật, không còn chút nào để đoán những từ ngữ lạ.

Code chạy rất lâu
...

Dictionary không hữu liệu lắm đối với key là số. Lúc gặp dãy số lớn thì cái hash function của nó bị collsion (chạm mã hash) hơi nhiều.
Gặp key là số thì array là số một. Khuyết điểm duy nhất của array là mảng lớn sẽ bị không đủ bộ nhớ.