Re: [算表] excel在陣列中找尋數值後傳回其所在位址

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Office
標題: Re: [算表] excel在陣列中找尋數值後傳回其所在位址
時間: Wed Jun 2 07:01:16 2010

※ 引述《weeeeeeeeell (等雨停)》之銘言：
: 軟體:excel
: 版本:xp 2003
: A B C D E F G H I J K VZ
: -----------------------------------------------------
: 1 .. ... .. .. .. 12345 ... ... .... .. .. ... ..
: 2 .. ... .. .. .. .. ... ... .... .. .. .
: 3 .. ... .. .. .. .. ... ... .... .. .. .
: 4 .. ... .. .. .. 12345 ... ... .... 12345 .
: 5 .. ... .. .. .. .. ... ... .... .. .. .
: 6 ..
: ..
: 4096 .. ... .. .. .. ... .. .. ... ... .. .... .....
: sheet裡已存在一眼看不完的 256x4096 大小的array
: 已知array中有20個格子內容皆為12345
: 我想要把內容為12345的儲存格位址傳回來如下
: A4097=f1
: A4098=f4
: A4099=j4
: .
: .
: .
: 要怎樣才能辦到呢？

Sub test()
k = 257
For i = 1 To 256
For j = 1 To 4096
If Cells(i, j) = 12345 Then
Cells(k, 1) = i
Cells(k, 2) = j
k = k + 1
Else
k = k
End If
Next
Next
End Sub

最下面會列出12345的座標
蠻白爛的作法

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.144