Tìm Khoảng Cách Lớn Nhất Giữa Các Cột

Liên hệ QC

emgaingayngo

Thành viên hoạt động
Tham gia
9/2/07
Bài viết
141
Được thích
5
Tôi có một mảng gồm 18 dòng và 256 cột, mỗi cell chứa 1 giá trị bất kỳ gồm 2 chữ số. Một số có thể xuất hiện ở nhiều cột khác nhau, do đó có nhiều khỏang cách khác nhau. Xin giúp tôi lập công thức tìm ra khỏang cách lớn nhất của một giá trị bất kỳ. Cảm ơn nhiều!
 

File đính kèm

  • KhoangCach.xls
    77 KB · Đọc: 86
Tôi có một mảng gồm 18 dòng và 256 cột, mỗi cell chứa 1 giá trị bất kỳ gồm 2 chữ số. Một số có thể xuất hiện ở nhiều cột khác nhau, do đó có nhiều khỏang cách khác nhau. Xin giúp tôi lập công thức tìm ra khỏang cách lớn nhất của một giá trị bất kỳ. Cảm ơn nhiều!

Nếu làm bằng VBA thì đơn giản hơn, nếu chỉ là công thức thì tạm thời mình chưa tìm được công thức tốt hơn, mình nghĩ là công thức mảng sẽ tốt hơn nhưng chưa nghĩ được.
Bạn tham khảo nhé.
Thân!
 

File đính kèm

  • KhoangCach.zip
    22.9 KB · Đọc: 62
Mình bổ sung thêm cách nữa (sử dụng VBA)
 

File đính kèm

  • KhoangCach_GPE.rar
    15.2 KB · Đọc: 51
Phát hiện ra cái ni:

/)/ếu copy Special CSDL tại sheet1 của EmGaiNgayNgo sang Sheet2 = cách chuyển vị thì các ô được tô xanh cũng sẽ có cùng giá tri!
 
Bạn NVSON dung VBA thật là tuyệt vời! Cảm ơn nhiều.
Mà các bạn ơi, có cách nào chỉ dùng công thức trong Excel mà không cần dùng VBA?
 
Dear Mr NVSON!
Đọan mã VBA của bạn chạy tốt, nhưng số 38 thì bị sai. Mình gởi lại file nhờ bạn xem giúp và chỉ cho mình luôn nha. Cảm ơn nhiều.
 

File đính kèm

  • KhoangCach_GPE.rar
    34.4 KB · Đọc: 23
oh, Mình sơ suất chút
Bạn sửa lại code dòng For .... Next cuối cùng nhé!
Code cũ:
For i = 1 To dem-1
If Gtri_Max < (gtri(i) - gtri(i - 1)) Then Gtri_Max = gtri(i) - gtri(i - 1)
Next i
Code mới:
Mã:
For i = 2 To dem
        If Gtri_Max < (gtri(i) - gtri(i - 1)) Then Gtri_Max = gtri(i) - gtri(i - 1)
Next i
Khỏang cách từ cột A->C là 1
Khỏang cách từ cột D->G là 2
Khỏang cách lơn nhất trong mảng trên là 23 từ cột L->AI
Từ A-->C = 3-1-1=1
Từ D-->G = 7-4-1=2
Từ L-->AI= 35-12-1=22
Bạn xem lại nhé!
Nếu cần thiết thì sử dụng code sau:
Mã:
For i = 2 To dem
        If Gtri_Max < (gtri(i) - gtri(i - 1)) Then Gtri_Max = gtri(i) - gtri(i - 1)[B][COLOR=red]-1[/COLOR][/B]
Next i
 
Web KT
Back
Top Bottom