| |
作成したマクロのコードは
'貼り付けるシートのクリア（これが新規シート）
Sheets("実験").Select
Range("B2:N500").Select '２行目から５００行目までを選択
Selection.ClearContents 'セルをクリア
Range("A1").Select
'コピー元の範囲選択
Sheets("登録").Select
Range("B17:M1500").Select
Application.CutCopyMode = False
Selection.Copy
'貼り付けるシート（これが新規シート）
Sheets("実験").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'並び替え（人(昇順)＞部屋(昇順)＞番号(昇順)）
'人は11,12,13のみが表示となる
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, _
Key2:=Range("G2"), Order2:=xlAscending, _
Key3:=Range("H2"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
DataOption1:=xlSortNormal, DataOption2:= _
xlSortTextAsNumbers, DataOption3:=xlSortTextAsNumbers
Columns("H:H").Select
Range("H2:H50").Select
'人１５以上を削除
For Loop_Cnt = 2 To 500
If (Cells(Loop_Cnt, 9) + 0) > 15 Then
Rows(Loop_Cnt).Select
Selection.Delete Shift:=xlUp
Loop_Cnt = Loop_Cnt - 1
End If
Next Loop_Cnt
Range("A1").Select
ActiveWindow.SmallScroll Down:=9
End Sub
と上記の通りです。
マクロの記録作成から作ったので余分な箇所も有ります
|
|
勝子
- 07/6/22(金) 18:03 -
