EXCEL VBA 如何找到某一数据的行号和列号？

Posted 2023-05-09

该数据不是唯一值，有重复

代码在附件,源码开放,d1单元格为需要查找的字符,点击按钮显示符合条件的全部行号和列号

参考技术A 先定义一个rng变量，在该列非空单元格中循环；
再定义一个str变量，用于存放符合条件的单元格地址；
if rng=指定条件 then
str=rng.address & str & ","
end if
最后去掉str的最后一个逗号，写入位置或者msgbox显示 参考技术B Sub FindAll()
Dim a, rng1, rng2, Address1, Address2
a = "xxx"
Set rng1 = ActiveSheet.UsedRange.Find(What:=a, lookat:=xlWhole)
If rng1 Is Nothing Then Exit Sub
Address1 = rng1.Address(0, 0)
Set rng2 = ActiveSheet.UsedRange.FindNext(rng1)
Address2 = rng2.Address(0, 0)
Do Until Address1 = Address2
Set rng1 = Application.Union(rng1, rng2)
Set rng2 = ActiveSheet.UsedRange.FindNext(rng2)
Address2 = rng2.Address(0, 0)
Loop
rng1.Select
End Sub

参考技术C 那重复的是要哪一行？这种你要说清楚哦追问

所有重复值所在的行数都需要

追答

那找到之后呢，放到一个表还是说标颜色？

追问

找到之后就可以了，之后的就是我自己处理了

c语言：3*4的矩阵，编程序求出其中最大的那个元素的值，以及其所在的行号和列号。（打擂台算法）

有一个3*4的矩阵，要求编程序求出其中最大的那个元素的值，以及其所在的行号和列号。（打擂台算法）

解：程序：

#include<stdio.h>

int main()

{

int i, j, row = 0, colum = 0, max;

int a[3][4] = { { 1,2,3,4 },{ 4,5,6,7 },{-1,3,-5,10} };

max = a[0][0];

printf("array a:\n");

for (i = 0; i <= 2; i++)

{

for (j = 0; j <= 3; j++)

{

printf("%5d", a[i][j]);

}

printf("\n");

}

for (i = 0; i <= 2; i++)

{

for (j = 0; j <= 3; j++)

{

if (a[i][j] > max)

{

max = a[i][j];

row = i;

colum = j;

}

}

}

printf("max=%d\nrow=%d\ncolum=%d\n",max,row,colum);

return 0;

}

结果：

array a:

    1    2    3    4

    4    5    6    7

   -1    3   -5   10

max=10

row=2

colum=3

请按任意键继续. . .

本文出自 “岩枭” 博客，请务必保留此出处http://yaoyaolx.blog.51cto.com/10732111/1746397