ユーザーがinputBoxを介して決定した特定の行数の後に、1,000,000行以上の非常に大きなExcelファイルを小さなExcelファイルに分割するように求められましたが、これが起こる前に、ユーザーに置き換えたいかどうか尋ねる必要があります列の情報が変数 userCensor に格納されたら、別の inputBox を使用して「#####」を含む特定の列を作成した後、行分割のために入力された数値を取り、それを userSplit として格納し、 userSplitで指定された間隔でファイル。
これは私がこれまでに持っているものであり、現在、脳のおならがひどく、ここからどこに行くべきかわかりません。
Set app = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder("Y:\BLAHBLAHBLAH").Files
If LCase(fso.GetExtensionName(f)) = "xls" Then
Set wb = app.Workbooks.Open(f.Path)
set sh = wb.Sheets("Sheet 1") row = 1
lastRow = sh.UsedRange.Rows.Count
lastColumn = sh.UsedRange.Columns.Count
strRow = lastRow
userSplit = InputBox("Enter when you want to split between 1 - " + strRow)
strColumn = lastColumn
userCensor = InputBox("Enter Columns to censor (Format example: 'A:A' deletes column A) Between 1 - " + strColumn)
If userCensor.IsNumeric Then Columns(userCensor).Select
Selection.Replace("######")
For r = row to LastRow If lastColumn > 1 Then
Else
それほど多くはありませんが、どんな助けでも大歓迎です!
再度、感謝します!