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

时间:2016-03-02 08:11:28

标签: vba

VBA 即可。我想从A列中选择一个值。

离。我只想从columnA获得价值 "书"

private int getColorIndex(string colorName , List<string> headers) { int index = headers.FindIndex(s => String.Equals(s, colorName, StringComparison.InvariantCultureIgnoreCase)); }

现在,我想要的输出就像这样

columnA  columnB  columnC
 book     yellow    2
 pen      black     3
 book     blue      4
 bag      blue      1

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

2 个答案:

答案 0 :(得分:0)

欢迎使用stackoverflow。现在,我想帮助你,但我想让你自己也想到。所以,我将如何开始。尝试自己谷歌休息,因为这将使你成为一个更好的程序员。

我会创建一个范围,我在A2处设置设置(在这种情况下,值为#34; book&#34;)和循环它一直向下直到它到达一个空单元格(此单元格的为空)。在每个循环中,它检查(查找 if statement )是否该范围的值是&#34; book&#34; (您可能希望使用 LCase 使其不区分大小写)和所需的值复制到另一个工作表。

您必须在代码中添加的所有相关内容均以粗体显示。您不需要为此加载任何代码,对于初级程序员来说应该是可行的。如果您需要更多帮助,请发布您目前为止编写的代码,我们会尽力为您提供帮助。祝你好运!

答案 1 :(得分:0)

lngLastRow = wksht1.Range(&#34; A&#34;&amp; 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