0

1 つの変数に依存し、それ自体に入力する複数の Excel 関数を実行するワークブックがあります。これらのフォームを作成してディレクトリに保存するループがありますが、その前にすべてをコピーして特別に貼り付けて、式がなくなるようにします。

Sub SaveAs1()
For i = 172 To 225 
    Dim SaveName As Integer
    SaveName = ActiveWorkbook.Sheets(1).Range("bi1").value
    Application.ActiveWorkbook.SaveAs "C:\" & SaveName
    Range("bi1") = i + 1
Next
End Sub

試行錯誤の方法を使用して最終的にそれを理解します

Sub Save()

Rem kaydetmece dongusu

For i = 172 To 180 Step 1

    Application.DisplayAlerts = False

    Workbooks.Open Filename:="C:\"

    Range("bi1") = i + 1

    Dim SaveName As Integer
    SaveName = ActiveWorkbook.Sheets(1).Range("bi1").value

    Range("A1:BE63").Select
    Range("a1").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Application.ActiveWorkbook.SaveAs "C:\" & SaveName

    Columns("BE:BU").Select
    Selection.Delete Shift:=xlToLeft

    Sheets("CAL").Select
    ActiveWindow.SelectedSheets.Delete

    Sheets("sahadan").Select
    ActiveWindow.SelectedSheets.Delete

    ActiveWorkbook.Close True

Next

End Sub
4

1 に答える 1

3

値を貼り付ける方法を尋ねている場合は、これがその方法です。「A1」を実際に使用する必要がある範囲に置き換えます。

Range("A1").Copy
Range("A1").PasteSpecial xlPasteValues
于 2012-10-04T08:41:43.977 に答える