从每日工作表列表中分发数据在本文中,我们将创建一个宏以在多个工作表上按日排列数据。

本文的原始数据包括团队的每日销售数据,其中包括日期,代理商名称和已售项目数。

ArrowRawData

我们希望每天将数据分布在多张纸上。单击“每日分发数据”按钮,将执行相同的操作。

ArrowOutput

代码说明

直到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]