Hỏi cách select tất cả các ô trừ range (1 người xem)

[Jang Jing]

Tình hình là đang mò mẫm lại bên vba nhưng đuối quá anh em cho mình hỏi với , mình tính select hết tất cả các ô hiên có trong excel bằng vba , nhưng điều kiện là
+ ko select những ô nằm trong range name : Range_1 và Range_2
Range_1 : từ A1:J12
Range_2 : từ A94:J101

vậy phải làm sao ạ mò hoài không ra

 

[be_09]

Tình hình là đang mò mẫm lại bên vba nhưng đuối quá anh em cho mình hỏi với , mình tính select hết tất cả các ô hiên có trong excel bằng vba , nhưng điều kiện là
+ ko select những ô nằm trong range name : Range_1 và Range_2
Range_1 : từ A1:J12
Range_2 : từ A94:J101

vậy phải làm sao ạ mò hoài không ra

Thử 1 dòng xem sao.

Sub Macro6()

Sheets("Sheet2").Range("A13:J93,A102:J65536,K:IV").Select

End Sub

 

[SA_DQ]

Chắc bạn không cần chọn tất tần tật các ô trong bảng tính đâu nhỉ; Vì nếu thế thì có nghĩa gì hay làm gì tiếp?!

 

[Jang Jing]

Chắc bạn không cần chọn tất tần tật các ô trong bảng tính đâu nhỉ; Vì nếu thế thì có nghĩa gì hay làm gì tiếp?!

mình select hết để clear những ô nào có chứa content bạn ơi

 

[dhn46]

mình select hết để clear những ô nào có chứa content bạn ơi

Thao tác tay để chọn những ô có dữ liệu trong vùng là:

Chọn toàn bộ vùng, bấm Ctrl + G => Chọn mục constants (Bạn chọn theo ý) => Ok.

Cứ thế mà bạn record macro sẽ có kết quả

 

[Jang Jing]

Thử 1 dòng xem sao.

Sub Macro6()

Sheets("Sheet2").Range("A13:J93,A102:J65536,K:IV").Select

End Sub

mình thử cách của bạn rồi , nhưng có 1 vấn đề ko khả thi cho lắm là khi value ở giữaa hai range đó có thể nhiều hơn 93 row và nó sẽ đẩy cái Range_2 xuống 1 vị trí thấp hơn , nên mình chưa biết phải như thế nào

 

[Jang Jing]

Thao tác tay để chọn những ô có dữ liệu trong vùng là:

Chọn toàn bộ vùng, bấm Ctrl + G => Chọn mục constants (Bạn chọn theo ý) => Ok.

Cứ thế mà bạn record macro sẽ có kết quả

minh có thử nhưng không theo ý cho lắm

 

[chucuoi92]

minh có thử nhưng không theo ý cho lắm

Có 2 cách dành cho bạn:
Cách 1
gõ 1 ký tự bất kỳ ở ô A111 để làm mốc
sau đó dùng code này: Sheet1.Range("A13:IV" & Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row - 9).ClearContents
Cách 2
Đặt một name là: dong với Refers to: =Sheet1!$A$103
sau đó dùng code sau:
Dim rg
rg = Sheet1.Range("dong").Row - 1
Sheet1.Range("A13:IV" & rg).ClearContents
----------------------------------------------
hai code này đều dùng được khi bạn thêm dòng trong khoảng A13 đến A102