随机复制exal表格的两行?
发布网友
发布时间：2023-11-09 06:28
共5个回答
热心网友
时间：2024-10-29 15:54
用index 和 rand函数就行，没有那么复杂。
热心网友
时间：2024-10-29 15:54
可以通过Excel中的“随机选择”功能来实现自动化地随机复制数据。
以下是步骤：
创建一个新的工作表，在其中创建两列，分别为“日期”和“时间”，将原始数据中的所有日期和时间分别填入这两列中。
在第三列中添加随机数，用于作为筛选条件。
使用VLOOKUP函数，将随机数与原始数据中的日期和时间一一对应起来。
运用RAND函数为每一行产生一个随机数，然后使用IF函数将其与第三列的随机数对比，如果相等则复制这一行数据到另一个工作表中。
重复上述步骤多次，直到所需的随机样本数量达到要求。
参考如下示例公式：
=RAND() >= VLOOKUP(DATE($C$1,$D$1,D$2),DATE(ORIGINAL_DATE_COL,TIME(ORIGINAL_TIME_COL),RANDOM_NUM_COL),FALSE)
以上步骤中，
ORIGINAL_DATE_COL代表原始数据中的日期所在的列
ORIGINAL_TIME_COL代表原始数据中的时间所在的列
RANDOM_NUM_COL代表新创建的随机数所在的列
注意：这个方法可能需要一段时间来运行，取决于数据量的大小。如果您有大量数据需要复制，则可能需要寻求更为高效的方式来实现此操作。
热心网友
时间：2024-10-29 15:55
1.选中需要复制的行，右键单击并选择“复制”。
2.在需要粘贴的位置，右键单击并选择“粘贴”。
3.在粘贴选项中，选择“跳过空单元格”。
这将随机复制选中的两行并粘贴到目标位置。请注意，这种方法可能会导致数据重复或缺失，因此在进行操作时要小心。
热心网友
时间：2024-10-29 15:56
热心网友
时间：2024-10-29 15:56
以下是一个简单的VBA宏示例，该宏会随机复制表格中每天的0到23时的两个数据，并粘贴到另一个工作表中：
vba复制代码
Sub RandomCopy()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim sourceRange As Range
Dim targetRange As Range
Dim randomRow As Range
Dim randomCell As Range
Dim copyCount As Integer
Dim i As Integer
Dim j As Integer
Dim lastRow As Long
Dim lastCol As Long
' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 请根据实际情况修改工作表名称
Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' 请根据实际情况修改工作表名称
' 设置源数据范围和目标数据范围
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row ' 根据实际情况修改列A或其他列来确定最后一行
lastCol = sourceSheet.Cells(1, sourceSheet.Columns.Count).End(xlToLeft).Column ' 根据实际情况修改最后一列的列号
Set sourceRange = sourceSheet.Range(sourceSheet.Cells(1, 1), sourceSheet.Cells(lastRow, lastCol))
Set targetRange = targetSheet.Range(targetSheet.Cells(1, 1), targetSheet.Cells(lastRow, lastCol))
' 随机选择一行和一列复制数据
Set randomRow = sourceRange.Cells(Int((lastRow - 1) * Rnd) + 1, 1) ' 随机选择一行，可根据需求修改范围和随机选择行数的方法
Set randomCell = sourceRange.Cells(randomRow.Row, Int((lastCol - 1) * Rnd) + 1) ' 随机选择一列，可根据需求修改范围和随机选择列数的方法
copyCount = Int((lastRow - 1) * Rnd) + 1 ' 随机选择要复制的行数，可根据需求修改范围和随机选择行数的方法
' 复制数据到目标工作表
For i = 1 To copyCount ' 根据需求修改要复制的行数和复制次数
randomRow.EntireRow.Copy targetRange.Cells(i, 1) ' 将选中的行复制到目标工作表，可根据需求修改目标位置和复制方式（剪切/复制）
Next i
End Sub
你可以将以上代码复制到Excel的VBA编辑器中（使用Alt+F11打开），然后运行宏（使用F5或点击运行按钮）即可。这个宏会随机选择一行和一列，然后将它们复制到目标工作表中。你可以根据需要调整代码中的参数来改变复制的数据范围和数量。
