Câu hỏi Macro Excel

Chào bạn,

Công thức để VBA chọn toàn bộ Cột có Văn bản cụ thể là gì.

Các tiêu đề thay đổi cột theo thời gian. Ví dụ: một tuần, tiêu đề có thể ở Cột B, tuần tiếp theo ở Cột D.

Trong trường hợp này,

Tiêu đề là "Trạng thái" trong B1. Bây giờ tôi cần tìm "Trạng thái" trong một tài liệu khác có thể có nó trong D1. Toàn bộ Cột có tất cả các giá trị phải được đưa vào "Sheet2"

Bất kỳ trợ giúp sẽ được đánh giá cao.

Cảm ơn!

Trả lời:

Hãy thử mã dưới đây. Tôi đã giả định theo tuyên bố của bạn " Toàn bộ Cột có tất cả các giá trị phải được đưa vào "Sheet2" nghĩa là bạn muốn tìm tiêu đề cột "Trạng thái" trong Sheet2

Tôi đã trả lời bằng cách thực sự chọn cột theo yêu cầu của bạn nhưng hầu hết các trường hợp không cần thiết phải thực sự chọn ô/phạm vi.

Macro phụ1()

Dim ws As Worksheet

Dim rngHeader As Range

Dim varToFind dưới dạng biến thể

Đặt ws = Worksheets("Sheet2") 'Sửa "Sheet2" thành trang tính cần thiết

varToFind = "Status" 'Sửa "Status" thành tiêu đề để tìm

Với ws.Rows("1:1")

Đặt rngHeader = .Find(What:=varToFind, _

LookIn:=xlFormulas, _

LookAt:=xlWhole, _

Thứ tự tìm kiếm:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=Sai, _

Định dạng tìm kiếm:=Sai)

Kết thúc với

Nếu không phải rngHeader thì không có gì

Application.Goto rngHeader.EntireColumn

Khác

MsgBox varToFind & " not found in worksheet " & ws.Name

kết thúc nếu

kết thúc phụ

Trả lời:

Cảm ơn AussieMac!

Điều này đã làm việc hoàn hảo !!!