怎样在excel文件中工作薄填入数据,另两个工作薄自动生成

在“总”工作薄填入数据,怎么在“JH-KQ”和“YW-MD”工作薄自动引生对应数据。例如:我在工作薄“总”内写入:YW-MD-R0081-2, 在工作薄“YW-MD”内的"Parent SKU"列的“YW-MD-E1722-1”下方,自动生成“YW-MD-R0081-2”

    你这不是工作簿之间的引用,是工作表之间的引用;

    需要在某个工作表引用其它工作表的数据,只需在此工作表输入引用公式即可;

    如在A表中A1单元格引用B表中A1单元格的数据,只需在A表的A1单元格输入公式:=B!A1

温馨提示:答案为网友推荐,仅供参考
第1个回答  2018-04-08

答:要达到你最终需要的结果可能有不同方法,但如果你只需要实现目前功能,我编写了段工作表事件程序来完成。

在"总"工作表标签,右键,"查看代码",打开VBE窗口,然后复制下面代码进去,就达到了所需功能。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    Dim KeyWords As String
    Dim OpWkt As Worksheet
    Set Cell = Target.Cells(1, 1)
    If Cell.Column = 2 And Not IsEmpty(Cell.Offset(0, 1)) Then
        KeyWords = Left(Cell.Offset(0, 1), 5)
    ElseIf Cell.Column = 3 And Not IsEmpty(Cell.Offset(0, -1)) Then
        KeyWords = Left(Cell, 5)
    End If
    On Error Resume Next
    Set OpWkt = Worksheets(KeyWords)
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    With OpWkt
        Intersect(Rows(Cell.Row), Range("B:C")).Copy
        .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

第2个回答  2018-04-08
用VLOOKUP函数。
其实个人觉得你们这样做分表好浪费人力,主表加一列要分类的信息,然后用透视表直接就出来了,真要保存分表也应该直接拷贝透视表的内容就行了。
我们公司的财务也是像你们这样做分表,几十个客户的信息全部是筛选后手动拷贝过去的。每天累的要死,还要对照总表。不过老板没说什么,我也懒得说,不关我的事
相似回答