从当天使用VBA一天张的名单分发数据
从每日工作表列表中分发数据在本文中,我们将创建一个宏以在多个工作表上按日排列数据。
本文的原始数据包括团队的每日销售数据,其中包括日期,代理商名称和已售项目数。
我们希望每天将数据分布在多张纸上。单击“每日分发数据”按钮,将执行相同的操作。
代码说明
直到IsEmpty(Worksheets(1).Cells(intRowS,1))
循环在上述代码中,“直到”循环将一直循环直到遇到空白单元格。
strTab = Format(Cells(intRowS,1).Value,“ ddmmyy”)
上面的代码用于从日期中提取工作表名称。
intRowT = Worksheets(strTab).Cells(Rows.Count,1).End(xlUp).Row + 1上面的代码用于获取最后一个单元格的行号。
请遵循以下代码
Sub Divide() 'Declaring variables Dim intRowS As Integer, intRowT As Integer Dim strTab As String 'Initializing with starting row number intRowS = 10 'Checking whether cell in first column is empty Do Until IsEmpty(Worksheets(1).Cells(intRowS, 1)) 'Getting name of the sheet based on the date value in the first column strTab = Format(Cells(intRowS, 1).Value, "ddmmyy") 'Getting the row number of last cell intRowT = Worksheets(strTab).Cells(Rows.Count, 1).End(xlUp).Row + 1 'Copying data to respective sheet Rows(intRowS).Copy Worksheets(strTab).Rows(intRowT) intRowS = intRowS + 1 Loop End Sub
如果您喜欢此博客,请在Facebook和Facebook上与您的朋友分享。
我们很希望收到您的来信,请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]