Sub laydiachi() Set vung = Cells.SpecialCells(xlCellTypeFormulas, 23) For i = 1 To vung.Count temp = temp & ", " & vung.Cells(i).Address(0, 0) Next Range("F1").Value = Right(temp, Len(temp) - 2) End Sub
Bác dùng code này sẽ ổn liền! Giá trị xuất ra ở F1 đó! Bác có thể thay đổi tùy ý!
Thân.PHP:Sub laydiachi() Set vung = Cells.SpecialCells(xlCellTypeFormulas, 23) For i = 1 To vung.Count temp = temp & ", " & vung.Cells(i).Address(0, 0) Next Range("F1").Value = Right(temp, Len(temp) - 2) End Sub
Thì bạn sửa vòng lập lại 1 chút là xong ngay mà! Chẳng hạn:@Po_Pikachu: xem lại giúp, mong muốn như trong file đính kèm
Sub Laydiachi()
Dim Vung As Range, Clls As Range, i As Long
Set Vung = Cells.SpecialCells(3, 23)
Range("I2:J1000").ClearContents
For Each Clls In Vung
i = i + 1
Cells(i + 1, 10) = Clls.Address(0, 0)
Cells(i + 1, 9) = i
Next
End Sub
Thì bạn sửa vòng lập lại 1 chút là xong ngay mà! Chẳng hạn:
PHP:Sub Laydiachi() Dim Vung As Range, Clls As Range, i As Long Set Vung = Cells.SpecialCells(3, 23) Range("I2:J1000").ClearContents For Each Clls In Vung i = i + 1 Cells(i + 1, 10) = Clls.Address(0, 0) Cells(i + 1, 9) = i Next End Sub
Hiiiiiiiiii
Không có sách, lần mò theo code của mọi người để học mót chút đỉnh làm vốn nên vốn tăng hơi chậm
Hỏi thêm chút:
1- Cách mà For Each Clls In Vung dò tìm là thế nào vậy
2- Cách đặt vùng Set Vung = Cells.SpecialCells(3, 23) là thế nào vậy? Muốn set vùng là B5:F10 thì tham số thế nào theo cách set vùng như thế này (mình chỉ quen range("B5:F10"))