麻烦写个VBA找出列1里面相同的数据的位置！

gloluking

因为旧的数据比较多，我想把新的数据排除掉

随机拉出数据举例
列1为全部数据，可能几千行，列2是想判断的数据，就5个数据也可以（修改下）
想要的结果是，判断列2的数据在列1什么位置
跳到数据出现的位置，并且选中这5个，列5是日期，我自己判断。
先把列2的5个数据加红底，然后选出来，然后判断列5是不是连续数据排列也行
大概这样
麻烦了

quqiyuan

看得一头雾水。。。。

gloluking

quqiyuan 发表于 2025-3-24 22:36
看得一头雾水。。。。

不难看吧，就是找出列1里面和列2一致排列的数据

sunya_0529

思路变通一下，效果更好——

quqiyuan

gloluking 发表于 2025-3-24 22:57
不难看吧，就是找出列1里面和列2一致排列的数据

你的意思是：把b列的数，例如首先B1这个吧，62，在A列里找到所有的62，然后62对应的E列的数找出来吗，放到C列吗？

gloluking

sunya_0529 发表于 2025-3-24 22:58
思路变通一下，效果更好——

一个个数据输入，很麻烦，可能要输入差不多几百次，我就想拉一行数据在列2看看在列1什么位置

gloluking

我想拉一列数据到列2，看看在列1什么位置，要是选的话要输入几百次

gloluking

sunya_0529 发表于 2025-3-24 22:58
思路变通一下，效果更好——

能不能搞个VBA先把列2的5个数据加红底，然后选出来，然后判断列5是不是连续数据排列也行

sunya_0529

gloluking 发表于 2025-3-24 23:48
能不能搞个VBA先把列2的5个数据加红底，然后选出来，然后判断列5是不是连续数据排列也行

1. Option Explicit
   
2. 
   
3. Sub 筛选数据()
   
4.   Dim arr
   
5.   arr = Application.Transpose(Range(Cells(2, 2), Cells(2, 2).End(xlDown)).Value2)
   
6.   With ActiveSheet
   
7.     If .AutoFilterMode Then .AutoFilterMode = False
   
8.     .Columns(1).AutoFilter field:=1, Criteria1:=arr, Operator:=xlFilterValues
   
9.   End With
   
10. End Sub

复制代码

gloluking

sunya_0529 发表于 2025-3-25 10:44

先感谢先，不过有两个问题，可以修改下吗？
1.5个数据，漏了最前的62，只出现4个
2.能不能最后判断列5数据排序是否连续，按日期增加连续，是，加红底