]]>未分類2037-04-30T09:58:03+09:00はるFC2-BLOGhttp://rakurakusoftnaka.blog.fc2.com/blog-entry-177.html
選択したシートの式を削除するSub 複数シート() On Error Resume Next Application.ScreenUpdating = False Dim sh As Object Dim kazu As Long kazu = ActiveWindow.SelectedSheets.Count Dim ichi As Variant Dim i As Long Dim MaxRow As Long Dim MaxCol As Long i = 0 ReDim ichi(kazu - 1) For Each sh In ActiveWindow.SelectedSheets ichi(i) = sh.Name i = i + 1 Next sh ActiveWind On Error Resume Next Application.ScreenUpdating = False Dim sh As Object Dim kazu As Long kazu = ActiveWindow.SelectedSheets.Count Dim ichi As Variant Dim i As Long Dim MaxRow As Long Dim MaxCol As Long i = 0 ReDim ichi(kazu - 1) For Each sh In ActiveWindow.SelectedSheets ichi(i) = sh.Name i = i + 1