Sub test() Dim endrow, r As Long endrow = Sheets("rui").Cells(Rows.Count, 1).End(xlUp).Row ReDim ary1(endrow - 1, 6)
ary1() = Sheets("rui").Range("A2:F" & endrow).Value Sheets("sh1").Range("A2:F" & endrow) = ary2(ary1()) End Sub
Function ary2(ary1() As Variant) As Variant() Dim en, r As Long en = UBound(ary1()) For r = 1 To en ary1(r, 1) = Application.Asc(ary1(r, 1)) ary1(r, 1) = StrConv(ary1(r, 1), vbUpperCase) ary1(r, 1) = Replace(ary1(r, 1), " ", "") Next r End Function
