Bạn thêm hàm vào module
Function rev(s As String) As String
For i = Len(s) To 1 Step -1
ss = ss & Mid(s, i, 1)
Next
rev = ss
End Function
Function rev(s As String) As String
rev = [COLOR=#ff0000]StrReverse[/COLOR](s)
End Function
Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
k = UBound(Arr, 2)
For j = 1 To UBound(Arr, 2) / 2
xTemp = Arr(i, j)
Arr(i, j) = Arr(i, k)
Arr(i, k) = xTemp
k = k - 1
Next
Next
WorkRng.Formula = Arr
End Sub
Sub DaoViTri(ByVal rg As Range)
[COLOR=#008000]' dao vi tri cua mot dong hoac mot cot
[/COLOR]If rg.Rows.Count = 1 Then
rg = DaoMang(Application.Transpose(Application.Transpose(rg.Value)))
ElseIf rg.Columns.Count = 1 Then
rg = Application.Transpose(DaoMang(Application.Transpose(rg.Value)))
Else
MsgBox "Vung chon khong phai la 1 dong hoac 1 cot"
End If
End Sub
'
Function DaoMang(ByVal mang As Variant) As Variant
[COLOR=#008000]' dao thu tu vi tri cua mot mang
[/COLOR]Dim i As Integer, j As Integer
Dim tam As Variant
i = LBound(mang)
j = UBound(mang)
Do While i < j
tam = mang(i)
mang(i) = mang(j)
mang(j) = tam
i = i + 1
j = j - 1
Loop
DaoMang = mang
End Function
Chắc là dùng cột phụ đánh số thứ tự rồi sort (chứ không phải Filter) giảm dần.
