|
▼isausa さん:
アクセスから取り込んだシート名は全端末一緒でしょうね。
端末によって行数が違うでしょうから
シート名を指定して行数を取得で書いてみました。
それと今アクセスから取込んでいるコードをUP出来たらUP
して下さい。
Sub ソート及び空白処理()
Dim eRow As Long
With Worksheets("Sheet1")
eRow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A2:G" & eRow).Sort Key1:=.Range("A3"), Order1:=xlAscending, _
Key2:=.Range("D3"), Order2:=xlDescending, _
Key3:=.Range("E3"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
.Range("D3:G" & eRow).Replace What:="", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End With
End Sub
|
|