将多个工作表的数据最后一行提取到新工作簿上

此用户被禁言

报什么错。。。你用的是什么版本excel

yuan1130

    End If     End If End Sub

yuan1130

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
a = Sh.Name
    If Sh.Name <> "一览表" Then
        Rrow = ActiveSheet.UsedRange.Rows.Count
        If Target.Row = Rrow Then
            If Target.Column = 2 Then
                ThisWorkbook.Sheets("一览表").Range("a100000").End(xlUp).Offset(1, 0).Value = Target.Value
            End If
            If Target.Column = 6 Then
                ThisWorkbook.Sheets("一览表").Range("b100000").End(xlUp).Offset(1, 0).Value = Target.Value
            End If
            If Target.Column = 8 Then
                ThisWorkbook.Sheets("一览表").Range("c100000").End(xlUp).Offset(1, 0).Value = Target.Value
            End If
            If Target.Column = 20 Then
                ThisWorkbook.Sheets("一览表").Range("d100000").End(xlUp).Offset(1, 0).Value = Target.Value
            End If
            If Target.Column = 24 Then
                ThisWorkbook.Sheets("一览表").Range("e100000").End(xlUp).Offset(1, 0).Value = Target.Value
            End If
        End If
    End If
End Sub

输入代码即可

43272chl

此用户被禁言 发表于 2021-2-23 13:44
报什么错。。。你用的是什么版本excel

2016增强版

yuan1130

   End If
End Sub

用这段代码

此用户被禁言

我这里没有报错，不知道你报什么错。

yuan1130

43272chl 发表于 2021-2-23 08:55
新添加了模拟数据结果，请大神看下

VBA可以解决啊

yuan1130

   End If
End Sub

43272chl

谢谢大家的帮助，解决问题了

43272chl

此用户被禁言 发表于 2021-2-23 10:58
.................

老师，再次请教下，这个VBA在库存里有新增的库存时，我是在库存任意一个工作表里新增入库量时，结存应该有变化，再次重新汇总时并没有变化，还是原来的结存，请大神在看下如何解决，谢谢