VBA-如何从列中获取特定值

VBA。我想从列a中获取所选值

我只想从columnA中获取值，它是 “书”

column a column b column c
黄色书2
黑色钢笔3
蓝色图书4
包蓝色1

现在，我想要的输出是这样的

columnA  columnB   columnC
book     yellow    2
book     blue      4

---

我有逻辑，但我不知道如何开始

欢迎来到stackoverflow。现在，我想帮助你，但我想让你也考虑一下自己。下面是我将如何开始的。试着自己用谷歌搜索剩下的，因为这会让你成为一个更好的程序员

我将创建一个范围，我将设置为A2（在本例中为“book”值），然后循环直到它到达一个空单元格（此单元格的值为零）。在每个循环中，它检查（查找if语句）此范围的值是否为“book”（您可能希望使用LCase执行此操作以使其不区分大小写），并将所需值复制到另一个工作表中

您必须在代码中输入的所有相关内容都以粗体显示。您不需要为此加载大量代码，对于初学者来说应该是可行的。如果您需要更多帮助，请发布您迄今为止编写的代码，我们将尽力帮助您。祝你好运

lngLastRow=wksht1.Range（“A”&wksht1.Rows.Count）.End（xlUp）.Row

rownum = 2
For Index = 2 To lngLastRow
    'Column A - AO
    'from wksht1 = "kaizen"
    outputWksht.Range("A" & rownum).Value = wksht1.Range("C" & Index).Value
    outputWksht.Range("B" & rownum).Value = wksht1.Range("D" & Index).Value
    outputWksht.Range("C" & rownum).Value = wksht1.Range("E" & Index).Value
    outputWksht.Range("D" & rownum).Value = wksht1.Range("G" & Index).Value
    outputWksht.Range("E" & rownum).Value = wksht1.Range("H" & Index).Value