Excelのマクロ 検索範囲を広げたい
マクロ初心者です。
マクロが入ってるExcelファイルがあるのですが、
マクロボタンを押しても結果がでないので、たぶんマクロの検索範囲が１列しかなってないみたいなので広げたいのですが、どうしたらよいでしょうか?
Sub 検索準備()
'
' 検索準備 Macro
'
'
Sheets("データ表").Select
Range("A3:ES2002").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Sheets("検索表").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "=+R[1]C"
Range("A4").Select
Selection.Copy
Range("B4:ES4").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("個人スキル").Select
Range("D3:E3").Select
End Sub
Sub スキル検索()
'
' スキル検索 Macro
'
'
'
Sheets("検索表").Select
Range("A4:ES4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:ES4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("計算表").Select
ActiveWindow.SmallScroll ToRight:=-3
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("F1:J149").Select
Application.CutCopyMode = False
Selection.Copy
Range("L1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=4
Range("L13:P149").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("L13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Range("L23").Select
Sheets("個人スキル").Select
Range("D3:E3").Select
End Sub
検索準備ボタンと、スキル検索２種類ボタンがあります。
どこをいじくればよいのか分かりません。
検索表の検索範囲が表題を抜かして人の名前などが入ってる列が１列しかなってないので・・・
お礼
ありがとうございます。