软件:excel
版本:2016
目前写了一段vba，功能是点击 活页簿db1的方块后，会在活页簿db2加1
语法：
Sub Button1_Click()
Sheets("db2").Range("c2").Value = Sheets("db2").Range("c2").Value + 1
Sheets("db1").Range("a2").Value = Sheets("db1").Range("a2").Value + 1
End Sub
但是我设定活页簿db2的排序会依score自动排序。
这一来有可能原本db1_MS<->db2_c2的关系，可能db1_ibm<->db2_c2。
所以我再点db1的MS方块，他的增数值便会给db2的ibm。
请问是否可以让增值跟着db1_MS->db2的序号1,db1_GA->db2的序号2

不太了解，内文活页簿db1？是指sheets("db1")？如果是的话，这个称为工作表，不是活页簿活页簿是workbooks(...)，db1_MS和db2_c2又是什么程序sub名称，变量名称？如会因排序，位置不同的话，可以range.find或工作表函数match来回传储存格或列号，再累加