首页 > 解决方案 > 如何根据每月用户数据在 Excel 中创建历史数据库

问题描述

我目前正在使用来自设备的用户数据的仪表板。每个月都会提供一个新的数据集,并且必须由 Excel 处理,以便将这些原始数据转换为有用的东西。此外,我希望 Excel 将这些数据存储为图表,以显示用户数量随时间的发展。

在每个月的新数据集中,已退役的设备将从数据集中删除,这是我的随时间图表所需要的。

该数据集包含超过 28 列不同类型的数据,大约有 28 列。20,000个用户。

目前我有这个适用于 Excel 第一行的 VBA 代码:

Private Sub CommandButton1_Click()

Dim Organization_Group_Name As String
Dim Device_Model As String
Dim AcqDate As Date
Dim ws as Worksheet
Dim ws_origin as Worksheet
Dim Last_Item as Long
Set ws = ThisWorkbook.Worksheets("Database")
Set ws_origin = ThisWorkbook.Worksheets("Input")

'Input sheet
With ws_origin
    Organization_Group_Name = .Range("C2").Value
    Device_Model = .Range("M2").Value
    AcqDate = .Range("BA2").Value
End With

'Output in Database sheet
If ws.Range("A1").Value <> "" Then
    Last_Item = Range("A1").End(xlDown).Row
Else
    Last_Item = 1
End If

ws.Cells(Last_Item + 1, 0).Value = Organization_Group_Name
ws.Cells(Last_Item + 1, 1).Value = Device_Model
ws.Cells(Last_Item + 1, 2).Value = AcqDate

End Sub

它在“数据库”页面上完成工作(选择下一个空行等)

现在,无论行数如何,我如何对其进行编码以便复制整个列(A、B 和 C 列)

此致。

标签: exceldatabaseformula

解决方案


推荐阅读