Question

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

    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，然后声明，但我只是不知道如何：S

希望我的问题很明确。非常感谢！

Answer 1

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

Excel VBA宏使用If then

1 个答案: