| |
▼ぺーぺーです さん：
こんばんは。
>A列に空白とNULLを含む値がランダムに並んでいるとします。
空白とNULLの違いが私に早う分かってないのですが、
以下マクロは、A列の数値（A列は数値と勝手に判断）を空白を除いて
C列にはき出し昇順に並べ替えています。
こんなもんでしょうか？違うかな？
シートはアクティブシートで考えています。
Sub test()
Dim myR As Range
Dim r As Range
Dim myVal() As Variant
Set myR = Range("A1", Range("A65536").End(xlUp))
i = 0
For Each r In myR
If Not IsEmpty(r.Value) Then
ReDim Preserve myVal(i)
myVal(i) = r.Value
i = i + 1
End If
Next
Range("C1").Resize(i).Value = Application.Transpose(myVal)
Range("C1", Range("C65536").End(xlUp)).Sort Key1:=Range("C1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
|
|
ponpon
- 06/8/8(火) 20:21 -
