方案一：vba加excel函數(shù)達(dá)到目的。

這個(gè)行嗎。

a1單元格出現(xiàn)變動(dòng)，提示文件被修改，確認(rèn)后b2顯示被修改的次數(shù)，sheet2中記錄修改的時(shí)間。

代碼如下：

sheet1，b2單元格填寫(xiě)=count（sheet2!a:a)

Visual basic中填寫(xiě)

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, [a1]) Is Nothing Then

a = Sheets(2).Cells(Rows.Count, 1).End(3).Row + 1

Sheets(2).Cells(a, 1) = Now

End If

MsgBox “您的文檔正在被修改”

End Sub

方案二：excel函數(shù)直接達(dá)到目的

先在Excel選項(xiàng)的公式那一塊，將啟用迭代計(jì)算勾選，最大迭代次數(shù)改為1。

單元格a1中不填任何東西，單元格b1中輸入函數(shù)

=if(cell('contents',a1)<>'',b1+1,b1

函數(shù)解讀：?jiǎn)卧馚1等于，如果（在A1至A1這個(gè)區(qū)域內(nèi)的最左上角取值，如果這個(gè)值不再是空白，或者有變化，那么B1等于之前B1中的數(shù)加上1，否則B1等于之前B1的值）

具體效果：