別々のシートに同じような内容の事が書いてある場合、もう一つウィンドウを開いてスクロールしながら見比べたりしますよね。 ところが、スクロールしなければいけない位たくさんのデータがある時って面倒なんですよね。 だって、それぞ [...]

今のVBAには同様の関数があるはずですが（splitだったかな？）　  Sub  testSlice() Dim ret As Variant Dim str As Variant Dim dat A [...]

※エラー処理は省略しています。使用の場合は御注意下さい。 スクリプトを使用して損害が発生しても、責任は一切負えませんので悪しからず。 Sub test() Dim newbk As Workbook Set newbk = createBook(5) End Sub

Option Explicit

' 新規ブック作成 ' ' 概要： ' 指定されたシート数のワークシートのみで構成されたブックを作成する。 ' ' INPUT : sheetCount 挿入するシート数 ' OUTPUT : --- ' RETURN : 作成されたブック ' ' @author iiyan.net ' @date 2001/10/18 ' @version 1.0 Function createBook(ByVal sheetCount As Integer) As Workbook Dim defaultSheetCount As Integer

With Application
    defaultSheetCount = .SheetsInNewWorkbook
    .SheetsInNewWorkbook = sheetCount

    Set createBook = Workbooks.Add

    .SheetsInNewWorkbook = defaultSheetCount
End With

End Function