Sao câu hỏi của bạn với bạn này giống nhau không?
https://www.giaiphapexcel.com/diendan/threads/code-l%E1%BA%A5y-d%E1%BB%AF-li%E1%BB%87u-cho-sheet-tondau.170091/
Bạn từng đăng bài rất nhiều. Cái tối thiểu là đính kèm file để có thể test giúp bạn xem nó như nào thì lại không làm. Việc trên nó như kiểu đem ảnh đi khám bệnh ấy. Xin lỗi vì nếu nói làm bạn thấy tự ái.
thử code này tham khảo xem sao?
Function TT(ParamArray mang() As Variant) As Double
Dim T, A As Double, T1, n As Long, Tam$
For Each T In mang
For Each T1 In T
n = 1
If T1 <> Empty Then
If Len(T1) > 255 Then
For n =...
Hên thì trúng xui trượt nhé.
Sub ABC()
Dim Arr(), FullFileName, a(), b(), c(), i&, k&, sFile
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Add "Excel Files", "*.xls*"
If .Show = True Then
Set sFile =...
Bạn kì cựu rồi mà không biết phải sửa chỗ nào để xóa à?Thêm nữa là bạn biết chỗ mà chỉ đích danh chỗ cần sửa. Không lẽ cái nhỏ nhỏ cũng hỏi nó kỳ kì sao á. Cố gắng tìm hiểu rồi sửa xem.
@HUONGHCKT bị gọi tên liên tục nhỉ?
Thêm 1 cách khác cho bạn test thử. Hi vọng là các yêu cầu về sau của bạn mình đang hiểu đúng. Có sử dụng 1 phần code của thầy @HieuCD
Option Explicit
Sub ABC()
Dim Arr(), FullFileName, Res(), i&, k&, sFile
With...