excel工作表另存副本，文件名由指定單元格的值命名

下面是在sheet1中，在J1單元格中建立一個函數得到需要的值，建立副本，將J1的值賦給文件名，保存文件。 Sub copybook() ’ ’ copybook 宏 ’ ’ Sheets(「sheet1」).Select Range(「J1」).Select ActiveCell.FormulaR1C1 = _ 「=RIGHT(R[1]C[-3], LEN(R[1]C[-3]) - 3)&LEF

>>阅读原文<<