在单元格中input数字，并使用2D范围在数组中search该数字
我正在协调帐户，并想知道是否有一个公式/ VBA我可以用来search某些值，因为查找function不起作用？
例如：input-54.12到一个单元格中，公式/ VBAsearch该数字的数组。
这可能会更好地解释我想要达到的目的，尽pipe比编码更多的是解释：
Sub Test() Dim Value As Integer Dim Account As Range Dim Lookup As Boolean Value = Range("D8") Account = Range("E:E") Set Value = A Set Account = B ' IF A is present in B then look up = true ' if look up is true then scroll to cell End Sub
那么我可以通过改变值来设置一个Private Sub来在每次input一个新值时做同样的事情？
直接从https://stackoverflow.com/a/19126873/1505120 （在这里我忘了提到search字词在G1中）提起：
从MrExcel直接取消
假设数据数组在A1：D5：
在G2中： =COUNTIF(B2:D5,G1)
在G4： =IF(ROWS($G$4:G4)>$G$2,"",INDEX($A$2:$A$5,INT(SMALL(IF($B$2:$D$5=$G$1,(ROW($B$2:$D$5)-ROW($B$2)+1)*10^5+COLUMN($B$2:$D$5)-COLUMN($B$2)+1),ROWS($G$4:G4))/10^5)))
在H4： =IF(ROWS($G$4:G4)>$G$2,"",INDEX($B$1:$D$1,MOD(SMALL(IF($B$2:$D$5=$G$1,(ROW($B$2:$D$5)-ROW($B$2)+1)*10^5+COLUMN($B$2:$D$5)-COLUMN($B$2)+1),ROWS($G$4:G4)),10^5)))
后两个用Ctrl + Shift + Enterinput并复制下来。