Chọn vùng xử lý dòng và cột (1 người xem)

[ongtrungducmx25]

Hỏi ai biết chọn vùng xử lý dữ liệu theo dòng và cột tùy ý không.

vd: vùng xử lý tùy ý chọn là A3:I5 hoặc chọn vùng khác A10:I26

|

A​

|

B​

|

C​

|

D​

|

E​

|

F​

|

G​

|

H​

|

I​

|

J​

|

2​

|

Ngày Mượn​

|

Ngày Trả​

|

Ngày Mượn​

|

Ngày Trả​

|

Số Lượng​

|

Tiết Dạy​

|

Tên Bài Dạy​

|

Dạy Lớp​

|

Dạy Lớp​

|

Ghi Chú​

|

3​

|

1,609​

|

1,709​

|16/09|17/09|

1​

|

1,234​

|Luyện tập|9A1;9A2;|9A1;9A2| |

4​

|

1,012​

|

1,209​

|12/10|09/12|

2​

|

1,234​

|Luyện tập|9A1;9A2;|9A1;9A2| |

5​

|

1,001​

|

1,002​

|01/10|02/10|

3​

|

1,234​

|Luyện tập|9A1;9A2;|9A1;9A2| |

 

[dhn46]

Không biết bạn muốn cụ thể như thế nào, box xử lý chuỗi ký tự và tên topic là: chọn vùng xử lý vùng và cột. Bạn có thể mô tả một chút về kết quả mong muốn được không?

 

[ongtrungducmx25]

chủ yếu là copy và paste vào vùng được chọn ở đây minh chọn một vùng cố định viết code sửa lại

Sub VUNGCHON()    
Range("C3:D5").Select
    Selection.Copy
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("I3:I5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Cells.Select
End Sub