Xin code để xóa các dòng không cần thiết (lấy dữ liệu từ file txt và lưu lại thành file word)

Chia sẻ bởi:hands

★★★★★

‹ Trợ giúp xác định table trong word... [Chia sẻ] Dùng VBA trộn dữ liệu... ›

Quảng cáo

Chào các bạn
Mình có file FILE 1.TXT là file sub. Giờ mình cần loại bỏ những dòng thừa, gồm:
– Dòng trống.
– Dòng chứa các chuỗi sau:
+WcBzTT
+ –> (dòng thời gian)
+NOTc
+link:
+https
Do file quá nhiều (2000 file) nên mình không đủ sức làm thủ công. Rất mong các bạn hỗ trợ mình đoạn code Excel để xóa các dòng thừa và save vào file DOCX cùng tên với file TXT.
Quy trình thủ công của mình hiện như thế này:
– Mở file txt
– Copy dữ liệu của file TXT vào file Excel sau đó xóa các dòng thừa (bằng Filter), copy
– Tạo file word cùng tên với file TXT rồi lưu nội dung copy vào, lưu và đóng
– Mở file txt tiếp theo
– …

Nếu không thể có đoạn code như vậy thì rất mong các bạn giúp mình đoạn code để xóa các dòngTRỐNG và các dòng chứa ký tự được quy định ở cột H (File excel đính kèm).
Cám ơn các bạn rất nhiều.

Mở notepad++ lên

^(WcBzTT|NOTc|link:||d{2}:|$).*R

=> Replace All
11221121

www.giaiphapexcel.com/diendan/threads/xin-code-%C4%91%E1%BB%83-x%C3%B3a-c%C3%A1c-d%C3%B2ng-kh%C3%B4ng-c%E1%BA%A7n-thi%E1%BA%BFt-l%E1%BA%A5y-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-file-txt-v%C3%A0-l%C6%B0u-l%E1%BA%A1i-th%C3%A0nh-file-word.163715/post-1092138

Bạn kiểm tra sau khi chạy macro này xem có đúng với yêu cầu ghi trên cột trang tính chưa?

Sub XoaDongTrongTheoDieuKien()
Dim Arr(), Cls As Range, aDK()
Dim DKXoa As String
Const FC As String = "|"
Dim Rws As Long, J As Long, W As Long, Jj As Integer

aDK() = .Value
Rws = Sheet1.UsedRange.Rows.Count
Arr() = .Resize(Rws, 1).Value
ReDim aKQ(1 To Rws, 1 To 1)
For J = 1 To Rws
If Arr(J, 1) = "" Then
aKQ(J, 1) = 2
1872
Else
For Jj = 1 To UBound(aDK())
If InStr(Arr(J, 1), aDK(Jj, 1)) Then
aKQ(J, 1) = 2 + Jj
End If
Next Jj
End If
Next J
.Resize(J).Value = aKQ()
End Sub

www.giaiphapexcel.com/diendan/threads/xin-code-%C4%91%E1%BB%83-x%C3%B3a-c%C3%A1c-d%C3%B2ng-kh%C3%B4ng-c%E1%BA%A7n-thi%E1%BA%BFt-l%E1%BA%A5y-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-file-txt-v%C3%A0-l%C6%B0u-l%E1%BA%A1i-th%C3%A0nh-file-word.163715/post-1092140

(2)Tại mình trình bày chưa tốt. Bạn có thể (1) thêm vài dòng code để tự động xóa các dòng không trống (dựa vào dữ liệu ở cột B) sau khi chạy đoạn code của bạn không (như hình bên dưới)?1125

(1) Bạn thử mở bộ thu macro lên &:
→ Sắp xếp dữ liệu theo cột 'B'
→ Chọn các dòng cần xóa
→ Xóa các dòng đã chọn
Sau đó 'kiện toàn' lại nội dung macro
(1.1) Nếu không tự 'kiện toàn' được thì gởi lên nhờ cộng đồng giúp!

(2) Không phải, bạn trình bày đúng & mình cũng đã hiểu đúng;
Nhưng vì 1 lý do sư phạm nào đó mà có bài #03

Xin chúc mọi người vui vẻ nhân dịp xuân về!