多次查找同一工作表中的单元格值以及找到的值旁边的值

时间:2015-04-22 03:31:59

标签: vba excel-vba excel

Source Port #   Source Port Description Source port Pwwn            Switch Port     Switch Port Description Flolgi port Flogi pwwn
fc1/1   Test_port_description_1 21:00:00:00:12:34:56:78         fc1/1   Test_port_description_1     
fc1/2   Test_port_description_2 21:00:00:00:12:34:56:79         fc1/2   Test_port_description_2 fc1/0,abde  21:00:00:00:12:34:56:78
fc1/3   Test_port_description_3 21:00:00:00:12:34:56:80         fc1/3   Test_port_description   fc1/2,abde  21:00:00:00:12:34:56:79
fc1/4   Test_port_description_4 21:00:00:00:12:34:56:81         fc1/4   Test_port_description_4 fc1/1,abde  21:00:00:00:12:34:56:80
fc1/5   Test_port_description_5 21:00:00:00:12:34:56:82         fc1/5   Test_port_description_5 fc1/4,abde  21:00:00:00:12:34:56:81
                            fc1/5,abde  21:00:00:00:12:34:56:82

以下是输入文件中的数据示例。我有一个带有命令按钮的Excel工作表,单击它将激活我输入的sheet2。

A栏是我的来源。我想检查该列中的每个元素(A1,A2等)并检查它是否在工作表中找到。如果找到,我需要检查选择下一个单元格值并将其与找到的下一个单元格值进行比较。如果两者相同则应将A2,B2值复制到sheet3 我必须再次在sheet2中搜索并查看是否找到它然后这次我需要使用元素检查当前元素右侧的2个单元格。将它们复制到sheet3。

例如。
A2 = FC1 / 1,B2 = Test_port_description_1,C2 = 21:00:00:00:12:34:56:7个
首先,我想要选择A2值并尝试在工作表中找到它 当在f2 = fc1 / 1中找到A2 = fc1 / 1时,我现在需要检查是否 B2值等于G2值。如果它们都是相同的,则将A2和B2值都复制到sheet3。

我想继续搜索A2 = fc1 / 1被发现H5 = fc1 / 1,abde。现在我需要检查C2 = 21:00:00:00:12:34:56:78是否与H6 = 21:00:00:00:12:34:56:78相同然后复制值C3找到值的下一列,如果没有找到,则为单元格提供颜色编码..如第二列为红色,第3列为3列黄色......

1 个答案:

答案 0 :(得分:0)

KERN_INVALID_ADDRESS