1

ユーザーが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

それほど多くはありませんが、どんな助けでも大歓迎です!

再度、感謝します!

4

1 に答える 1