Question

我需要一些帮助。我正在尝试从“CA-2016”工作簿将数据导入到我当前的工作簿中。在我目前的工作簿中，我想只填充一个单元格。在“CA-2016”工作簿中，数据按日列出。日期位于从“J7”开始的“J”列中，我想要的数据总和位于“I”（0，-1）和“E”列（0，-4）中。但是，我希望按月汇总这些数据。所以下面我有“MMM”月份必须匹配的条件。在我目前的工作表中，日期写为2016年1月11日，表示我想从本月的第一天开始计算。然后，我想通过比较“MMM”循环“CA-2016”工作簿，如果这是真的则对列进行求和。我下面的代码没有运行。有什么我可以做得更好吗？我想我需要通过For循环运行它，但我现在已经注释掉了。我也在行中的rcell9收到编译错误：...=rcell9 Then

Sub DataImport()
    Dim rcell5, rcell6, rcell7, rcell8, rcell9 As Long
    rcell5 = Range("F2").Value
    rcell9 = Range("F2").Value
    Workbooks.Open "\\Inventory\CA-2016.xlsx"
    Worksheets("Total Year").Activate
    ActiveSheet.Range("J7").Select
    rcell8 = 0

    'For i = 1 To 31
        Do While rcell5 <> Selection.Value
            If Selection.Value = rcell5 And Selection.Value("MMM") = rcell9("MMM") Then
                ActiveCell.Offset(0, 0).Select
            Else
                ActiveCell.Offset(1, 0).Select
            End If
        Loop
        rcell5 = Selection.Value
        ActiveCell.Offset(0, -1).Select
        rcell6 = Selection.Value
        ActiveCell.Offset(0, -4).Select
        rcell7 = Selection.Value
        rcell8 = rcell6 + rcell7 + rcell8
    'Next i
End Sub

使用一列和每行中的条件选择几行数据

0 个答案: