-1

我没有编程经验，但我录制了一个执行以下操作的宏：

    Range("B8").Select
    Selection.Copy
    Sheets("DataRaw").Select
    Range("Table3[[#Headers],[Datum]]").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Transactie").Select
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DataRaw").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Transactie").Select
    Range("D8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DataRaw").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("Transactie").Select
    Range("D8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C8").Select
    Selection.ClearContents
    Range("B8").Select
    Selection.ClearContents

激活后，它将值从选定的单元格移动到另一个工作表中的表格。我想要做的是拥有多个不同类别的表，并让代码识别我的输入属于哪些类别，以便它可以将值移动到其各自的表中。

这样当我输入水果名称时，所有值都会进入水果表，当我输入蔬菜名称时，所有值都会进入蔬菜表。我猜我需要使用 if, then 语句，但我只是不知道如何：S

希望我的问题很清楚。多谢！

4

1 回答 1

0

If-Then 和 VBA 对于您在提出问题时所尝试的内容而言显得过于复杂 - 建议查看数据透视表。这里有两个链接可以帮助您入门：

Excel 2010 数据透视表和数据透视图的要点 - 傻瓜 http://www.dummies.com/how-to/content/the-essentials-of-excel-2010-pivot-tables-and-pivo.html

创建或删除数据透视表或数据透视图报表 - Excel - Office.com http://office.microsoft.com/en-us/excel-help/create-or-delete-a-pivottable-or-pivotchart-report-HP010089893。 aspx

于 2013-10-05T03:37:24.870 回答