quanghao262
Thành viên mới
- Tham gia
- 27/4/10
- Bài viết
- 31
- Được thích
- 0
em có file excel như ở dưới.có 2 vùng chọn
vùng 1 ("B3: G27") và vùng 2 là ("J3:O27")
3m muốn copy từng cột trong vùng 1 sang vùng 2 tương ứng sau đó sắp xếp
ví dụ như là
copy ("B1:B27") sang ("J1:J27") rồi sau đó xếp cột này theo thứ tự từ bé đến lớn
sau đó copy cột ("C1:C27") sang ("K1:K27") rồi sau đó xếp cột này theo thứ tự từ bé đên lớn.
..............
và cứ như thế cho đến hết.
em đã thử lập hàm này :
nhưng nó báo lỗi dòng ".Apply"
và khi em bỏ dòng aply thì nó không xếp theo thứ tự được.
mong anh chị giúp đỡ
cám ơn anh chị nhiều.
vùng 1 ("B3: G27") và vùng 2 là ("J3:O27")
3m muốn copy từng cột trong vùng 1 sang vùng 2 tương ứng sau đó sắp xếp
ví dụ như là
copy ("B1:B27") sang ("J1:J27") rồi sau đó xếp cột này theo thứ tự từ bé đến lớn
sau đó copy cột ("C1:C27") sang ("K1:K27") rồi sau đó xếp cột này theo thứ tự từ bé đên lớn.
..............
và cứ như thế cho đến hết.
em đã thử lập hàm này :
PHP:
Sub copy()
' Keyboard Shortcut: Ctrl+Shift+C
Dim Rng As Range
Dim i As Integer
Set Rng = Range("a3:a27")
For i = 1 To 6
Rng.Offset(0, i).copy
Rng.Offset(0, i + 8).PasteSpecial Paste:=xlPasteValues
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Rng.Offset(0, i + 8)
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next i
End Sub
và khi em bỏ dòng aply thì nó không xếp theo thứ tự được.
mong anh chị giúp đỡ
cám ơn anh chị nhiều.