chiendangvl
Thành viên mới

- Tham gia
- 18/12/06
- Bài viết
- 11
- Được thích
- 1
Sub timSo()
On Error Resume Next
For Each cls In Range([a2], [a65000].End(3))
cls(1, 2).Value = [c:c].Find(cls, , , 2).Address
[COLOR=#ff0000][b:b].Replace "$", ""[/COLOR]
Next
End Sub
Công thức tại B2:Mình có nhiều dãy số với các số không trùng nhau, yêu cầu đặt ra là: cho 1 số trong các dãy số đó, hãy tìm xem số đó nằm trong dãy số nào? Có cách nào dùng hàm để tìm không vậy các bạn?
Các bạn xen file gửi kèm nhe
="C"&LOOKUP(2,1/FIND(A2,$C$2:$C$27),ROW($2:$27))
Sao anh không dùng cls(1, 2).Value = [c:c].Find(cls, , , 2).Address(0, 0) ---> khỏi cần dòng code màu đỏTôi chỉ biết cách dùng VBA
Nếu muốn để địa chỉ tuyệt đối thì xoá dòng màu đỏ.Mã:Sub timSo() On Error Resume Next For Each cls In Range([a2], [a65000].End(3)) cls(1, 2).Value = [c:c].Find(cls, , , 2).Address [COLOR=#ff0000][b:b].Replace "$", ""[/COLOR] Next End Sub
góp thêm 1 cách cho vuiMình có nhiều dãy số với các số không trùng nhau, yêu cầu đặt ra là: cho 1 số trong các dãy số đó, hãy tìm xem số đó nằm trong dãy số nào? Có cách nào dùng hàm để tìm không vậy các bạn?
Các bạn xen file gửi kèm nhe
="C"&MATCH("*"&A2&"*",$C$1:$C$27,0)
Sao anh không dùng cls(1, 2).Value = [c:c].Find(cls, , , 2).Address(0, 0) ---> khỏi cần dòng code màu đỏ
Thương ơi, làm cách này coi chừng TỜ EO TEO HUYỀN TÈO ágóp thêm 1 cách cho vui
vậy thì cái này cũng chơi láng luônThương ơi, làm cách này coi chừng TỜ EO TEO HUYỀN TÈO á
Các cell có 1 hoặc 2 ký tự nó "chơi láng"
Híc
![]()
góp thêm 1 cách cho vui
bạn có thể giải thích cho mình tại sao dùng hàm như thế được không?góp thêm 1 cách cho vui