Gửi ảnh như trên thì không làm gì được.
em up lại rồi ạ, bác xem giúp em với ạ
Cách của bác khó hiểu thế ạ
Mình nghĩ ra cách rồi, bây giờ bạn sửa câu viết tắt tại bài #1 đi, mình làm xong sẽ gửi lên cho bạn.
Bạn copy toàn bộ các trang word, dán vào sheet Nguon từ ô A1 theo định dạng Match Destination Formatiing (M), sau đó bấm vào nút màu xanh bên sheet Dich rồi chờ một chút là xong.
Cảm ơn bác rất nhiều ạ, file đẹp quá ạ
Bác ơi giúp em lần nữa với ạ, thực ra cái em cần là cái tổng quát có thể dùng cho nhiều lần khác nữa chứ không riêng file word mà em đã gửi lên đây ạ, em đã thử với những câu hỏi trắc nghiệm định dạng chỉ khác đi 1 tí là file excel của bác nó sẽ không chạy đúng nữa ạ, em ví dụ như file đính kèm bên dưới này ạ, câu hỏi kiểu này paste vào A1 thì nó không được ạ, tức là em thấy là vẫn là câu hỏi đó và nội dung y hệt nhau ,nhưng nếu định dạng văn bản các thứ thay đổi sẽ không còn đúng nữa ạ, mong bác xem xét giúp em lần nữa ạ
Ai bảo đưa cần câu thì không đưa mà lại đem cho rổ cá.
Lưu lại, bữa sau em có làm thì thử xem sao.
Mình đã thử file word bạn mới gửi, chạy tốt rồi nhưng mình không giúp bạn nữa vì bạn vẫn viết tắt (sau khi đã góp ý và bạn đã sửa lại rồi).
Lưu hết các chỗ phải làm tay lại rồi lấy đó làm điều kiện để chuyển sang tự động.
Ctrl+F và Ctrl+H là một trong những công cụ rất đắc lực trong Word. Bất cứ ai sử dụng Word đều nên thuần hục.
Có những câu quan trọng hơn câu khác. Có những câu liên hệ nhau. Ví dụ nếu câu 1 trả lời A mà câu 2 trả lời B thì không lô gic.
Em vẫn dùng thường xuyên chứ bác. Nhưng 1 số cái nâng cao thì ít dùng nên khi nào cần thì lại lên Google thôi. Ví dụ như cái trong ngoặc đơn và cái xuyệt ngược bác dùng ở trên có tác dụng gì thì em chưa biết. Nhưng để khi nào em dùng máy tính thử lại có vấn đề gì em hỏi tiếp.
Chưa hình dung ra được chỗ này phải làm như thế nào. Bác có thể cho 1 số gợi ý được không ạ.
Nôm na là sau này gặp các trường hợp tương tự thì mình đặt các trường hợp có thể xảy ra mà mình đã từng gặp phải để bẫy lỗi đó bạn.
Em đã thử đổi định dạng văn bản kiểu 2 về giống với kiểu ban đầu nhưng khi paste vào ô A1 nó vẫn không ra như ý muốn ạ, em không biết là cần phải làm thế nào ạ, mong bác chỉ ạ
Sẽ rút kinh nghiệm...Lỗi thằng đánh máy
Option Explicit
Sub Export()
Dim lr&, i&, j&, k&, t&, m&, rng, arr(1 To 1000, 1 To 6), ary
ary = Array("A.", "B.", "C.", "D.") ' bao dam la cac cau tra loi bat dau bang A., B., C., D.
With Sheets("Word")
lr = WorksheetFunction.Max(.Cells(Rows.Count, "A").End(xlUp).Row, .Cells(Rows.Count, "B").End(xlUp).Row)
rng = .Range("A1:E" & lr).Value
For i = 1 To UBound(rng) - 1
If rng(i, 1) Like "C*:*" Then ' bao dam la cac cau hoi bat dau bang: "Cau 1:", cho den "Cau n:"
k = k + 1
arr(k, 1) = rng(i, 1)
For t = i + 1 To WorksheetFunction.Min(i + 10, UBound(rng))
If rng(t, 1) Like "C*:*" Then Exit For
For j = 1 To 5
For m = 0 To 3
If rng(t, j) Like ary(m) & "*" Then
arr(k, m + 2) = rng(t, j)
Exit For
End If
Next
Next
Next
End If
Next
End With
If k > 0 Then
With Sheets("KQ").Range("A2")
.Resize(10000, 6).ClearContents
.Resize(k, 6).Value = arr
.Resize(1, 6).EntireColumn.AutoFit
End With
End If
End SubEm cảm ơn bác , EM hiểu file của bác rồi ạ, file của bác rất hay ạ, tổng quát luôn ạ.
