列の値を合計して、その合計をワークブックのファイル名に追加します。

こんにちは私は列の一意の値に基づいて新しいワークシートを作成することができました。これに加えて、列の値を合計して、この合計を対応する各ワークシートのファイル名に含めます。

このワークブックのファイル名に、列Dの値の合計をFilename_Sum（D）.xlsの形式で追加します。

これが私がしたことです、私が必要とするすべては列I2の合計をすることです：私は、合計を文字列に変換してファイル名（列Aの値）に含める

            'Copy/paste the visible data to the new workbook
            My_Range.SpecialCells(xlCellTypeVisible).Copy
            With WSNew.Range("A1")
                ' Paste:=8 will copy the columnwidth in Excel 2000 and higher
                ' Remove this line if you use Excel 97
                .PasteSpecial Paste:=8
                .PasteSpecial xlPasteValues
                .PasteSpecial xlPasteFormats
                Application.CutCopyMode = False
                .Select                  

            End With

            mySum = Application.WorksheetFunction.Sum(Columns("I2:I1024"))


            'Save the file in the new folder and close it
            On Error Resume Next
            WSNew.Parent.SaveAs foldername & _
                                cell.Value _
                                & CStr(mySum) & _
                                FileExtStr, FileFormatNum'

私はあなたがVBAやマクロについて何も知らないと仮定するつもりですので、ここであなたが探していることをするためのステップの最短の量があります：

ワークブックを開きます。キーボードで、Alt + F11を押します。これにより、VBA開発者画面が開きます。左側にはツリーがあり、一番上のオブジェクト（VBAProject（YourFileName））を右クリックして[挿入＆gt;モジュール開いたモジュールのメイン画面に次のコードを貼り付けます。

Option Explicit
Sub SaveWithSum()
Dim SumOfD As Integer
SumOfD = Application.Sum(Range("Sheet1!D:D"))
ActiveWorkbook.SaveAs "C:\YourFolder\YourFilename" & SumOfD & ".xlsx", FileFormat:=51
End Sub

それから保存を押してください。現在のファイル形式（.xlsx）でマクロを実行できることを確認するメッセージが表示されます。いいえを選択し、YourFile.xlsmとしてファイルを保存します。

これで終わりです！結果のファイルはC：\ YourFolder \ YourFilename ##。xlsxになります。

このスクリプトは、名前を変更したすべてのファイルを.xlsxファイルとして保存します。これらのファイルはマクロを再実行できません（実際には[開発者]画面から消えます）。ファイルを.xlsmファイルとして保存し、保存したファイルでもスクリプトを実行し続ける場合は、 "。xslx"を ".xlsm"に変更し、FileFormatを52に変更します。

マクロにリンクするボタンをワークシートに作成するか（クイックGoogle検索が役立ちます）、または[表示]＆gt; [マクロ]を選択してマクロを実行することができます。

Sheet1を確認してください。ワークシートに合わせて変更します。頑張って！