Tạo 1 DS tên các sheet cần duyệt trên 1 cột hay 1 dòng nào đó, trong 1 sheet nào đó. Muốn thêm bớt thì cứ vào đây mà thêm bớt.
Muốn chọn sheet nào là do ý muốn của con người, khi chọn thì phải "thủ công" rồi.
Cái đó không phải "thủ công" sao?
Chắc là còn đó. Chờ các bạn khác xem sao.
Hiểu qua được ý của bạn là bạn giữ phím Ctrl rồi chọn các sheet cần sử lý nhưng mình không giỏi lập trình
Mục đích của bạn khó hiểu quá, làm người muốn giúp không biết phải làm thế nào.
Nên liệt kê hết các tên trang tính trong file của bạn ra đây.
Hãy liệt kê các trang tính được chọn ra đây; Chúng có chung cái gì không?
Excel ở chế độ Share khá hạn chế, chỉ biết được đang có user đang mở, ngay cả VBA cũng không chạy khi file ở share.
Nghĩa là:
Chỗ đỏ phải là sheet?
Ừ nhỉ trước giờ mới biết mỗi ActiveSheet còn ActiveWindow chưa để ý
Public Sub GPE()
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name <> "Sheet1" Then
Ws.Range(Ws.[C3], Ws.[C3].End(xlDown)).Offset(, 1).Value = Ws.Name
End If
Next Ws
End SubOption Explicit
Sub GánTenTrangTính()
Dim Sh As Worksheet, Rng As Range
Dim Rws As Long
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Sheet1" Then
Set Rng = Sh.UsedRange
If Not Rng Is Nothing Then
Rws = Rng.Rows.Count - 1
Rng(3).Offset(1).Resize(Rws).Value = Sh.Name
End If
End If
Next Sh
End Sub
