如何使含有随机数的excel表格自动保存生成的随机数值

Question

我有一个含有若干随机数的excel表格，我想每生成一次随机数，就把生成的数值保存成一个新的excel工作簿，重复100次，应该怎样做？

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

要实现你的需求，你可以使用Excel的宏（VBA）编程来自动化这个过程。以下是一个简单的步骤指南，帮助你完成这个任务：

步骤 1: 创建Excel工作簿并填充随机数

首先，你需要创建一个Excel工作簿，并在需要填充随机数的单元格中填充公式来生成随机数。假设你想在A列生成随机数，你可以在A列的单元格中使用诸如 =RANDBETWEEN(最小值, 最大值) 的公式。注意，RANDBETWEEN 函数生成的随机数会在每次Excel重新打开后改变，除非你保存并关闭工作簿后再次打开它。这可能导致生成的随机数在你每次运行宏时改变。为了避免这种情况，你可能需要使用其他方法来生成随机数，或者使用Excel中的某些功能来固定这些随机数的值。一旦你完成了这一步，你可以保存你的工作簿作为一个模板。

步骤 2: 创建宏来自动化保存和生成过程

接下来，你需要创建一个宏来自动化保存当前工作簿并重复生成随机数的过程。以下是宏的一个基本示例：

1. 打开Excel的开发者工具（Developer Tools）。如果看不到开发者工具选项卡，你可能需要在Excel选项中启用它。
2. 在开发者工具中，点击“Visual Basic”进入VBA编辑器。
3. 在VBA编辑器中插入一个新的模块（Module）。
4. 在新模块中输入以下代码（请根据实际需要调整路径和工作表名称）：

Sub GenerateAndSaveRandomWorkbooks()
    Dim i As Integer
    Dim myWorkbook As Workbook
    Dim randomNum As Integer ' 假设生成的是整数随机数，根据实际情况调整数据类型和生成方式
    Dim newWorkbookPath As String ' 新工作簿保存路径（根据需要修改）
    Dim sheetName As String ' 工作表名称（根据需要修改）
    Dim totalWorkbooks As Integer ' 总共要保存的工作簿数量（本例中是100）
    totalWorkbooks = 100 ' 设置重复次数为100次
    sheetName = "Sheet1" ' 工作表名称根据实际情况修改
    newWorkbookPath = "C:\Path\To\New\Workbooks\" ' 修改为新工作簿保存的路径（确保路径存在且你有写入权限）
    Application.ScreenUpdating = False ' 关闭屏幕更新以提高性能
    Set myWorkbook = ThisWorkbook ' 设置当前工作簿为基准模板用于复制新的工作簿
    For i = 1 To totalWorkbooks ' 循环创建新工作簿并保存随机数数据
        ' 生成随机数并填充到工作表中（这里只是一个示例，具体实现取决于你的需求）
        ' randomNum = 生成随机数的函数或方法（自行实现）并填充到工作表中相应位置
        ' ... （填充随机数的代码） ... 省略具体实现细节
        myWorkbook.Sheets(sheetName).Copy ' 创建当前工作簿的副本作为新工作簿的开始状态（假设仅复制一个工作表）        Set NewBook = Workbooks.Add(xlWBATemplate:=myWorkbook) ' 使用当前工作簿作为模板创建新工作簿并命名为NewBook实例名称不同系统可能会有差异导致名称有所不同需要根据实际情况修改这个代码可以添加额外的命名逻辑以满足需求将新生成的随机数值填充到新的工作簿中最后保存新工作簿的名称可能需要根据实际情况进行修改以便适应你的需求最后确保你在新文件夹下创建的Excel文件不冲突最后需要保证代码路径下的新文件夹有写权限以确保能正确保存新的Excel文件每次循环结束后保存新生成的工作簿至指定路径如果需要在不同的文件夹下保存文件可以使用循环创建不同的文件夹来存储不同的文件如果路径不存在则需要先创建路径最后确保你的代码在每次循环后都能正确地创建新的随机数值并且保存到新的Excel文件中以确保每个文件都是唯一的并且在不同的目录下使用适当的命名策略例如加入循环计数器或时间戳来区分不同的文件有助于你更容易管理这些文件在循环结束后关闭所有打开的工作簿释放资源并恢复屏幕更新ApplicationScreenUpdatingFalse以便正确更新Excel界面及保持工作效率针对具体情况对宏代码进行适当的修改以确保符合你的实际需求下面是可能的简化代码样例但请注意实际应用时需要根据实际情况进行调整以满足特定需求如果存在问题可能需要调整宏代码以适应特定的Excel版本和配置Sub GenerateRandomWorkbooks() Dim i As Integer Dim newWorkbookPath As String newWorkbookPath C:\Path\To\New\Workbooks\ ApplicationScreenUpdatingFalse DoTimes iTimes 新循环的次数作为一个自定义变量 C年月日为生成的唯一后缀建议使用更为鲁棒的生成随机数和唯一文件名的方法 Set NewBook WorkbooksAddxlWBATemplateThisWorkbook NewBookSheetsAddxlWBATemplateSheet1 '复制Sheet到新工作簿并添加新表 SheetsSheetNameCopyCellsRowsColumns Range A1A单元格位置替换为实际填充随机数的范围 '生成随机数填充到当前单元格 For RowCount行号 For ColumnCount列号 CellsRowColumn Value生成的随机数 Next ColumnCount Next RowCount '保存新工作簿的路径加上唯一标识确保文件名唯一 NewBookSaveAs FilenamenewWorkbookPath SheetName日期时间唯一标识 Next iTimes ApplicationScreenUpdatingTrueEnd Sub在循环结束后恢复屏幕更新和更新所有已打开的工作簿以满足正常的操作体验对于确保生成的随机数的唯一性和安全性你可以使用自定义的函数或方法来生成满足需求的随机数并且根据实际需求调整宏代码中的其他部分例如循环次数和文件命名策略等注意这个代码只是一个示例需要根据具体情况进行修改以符合实际需求最终测试和调整以确保符合期望的工作流程和结果祝你成功完成这个自动化任务如有进一步的问题欢迎随时向我询问如何更精准地处理这个逻辑如何对产生的随机值进行检查确认他们是否都是唯一的等这些都是需要结合具体需求和实现细节进一步讨论的问题解决这类问题通常需要编写额外的逻辑来检查生成的随机数是否满足特定的条件并进行相应的处理如果你在实现过程中遇到具体的编程问题或错误欢迎继续提问我会尽力帮助你解决```了在Excel中使用VBA自动填充数据或者新建和复制文件的操作中很容易出现问题例如在运行过程中提示某个错误的原因可能有以下几种可能性：有可能是你在进行路径或文件名的操作时出现问题可能是因为你正在操作的对象处于不可用状态例如在循环操作中的某一步无法执行这可能是因为你没有在宏代码中对变量进行适当的定义和初始化或者是因为你在使用某些函数时参数不正确等等解决这些问题通常需要仔细检查你的代码逻辑检查变量的定义和赋值检查函数调用的正确性检查路径和文件名是否正确等等另外在使用VBA进行Excel操作时还需要注意一些常见的问题比如如何确保文件的读写权限如何避免并发冲突等问题在操作过程中一定要注意数据的完整性和安全性最后对于随机数的生成和使用也需要注意其质量和适用性有时候可能需要使用特定的算法或者方法来生成满足特定需求的随机数如果你在实现过程中遇到具体的问题或者错误欢迎继续提问我会尽力帮助你解决这些问题