如果菜單欄沒(méi)有“開(kāi)發(fā)工具”選項(xiàng)卡，右擊上方菜單欄空白處——自定義功能區(qū)，選中“開(kāi)發(fā)工具”




請(qǐng)點(diǎn)擊輸入圖片描述

開(kāi)發(fā)工具里面，插入——ActiveX控件，選中按鈕，在Excel上拖拽2個(gè)按鈕



請(qǐng)點(diǎn)擊輸入圖片描述

右擊按鈕，查看代碼，可以打開(kāi)VBE界面（右擊按鈕，選擇屬性，里面可以改按鈕的顯示內(nèi)容，Caption屬性）

Private Sub CommandButton1_Click()

    Sheet2.Range("A1").Value = Sheet1.Range("A10").Value    '將表1中的某個(gè)值保存到表2的示例

End Sub

Private Sub CommandButton2_Click()

    Sheet2.Range("A1").Value = ""    '清空Sheet1指定單元格的示例

End Sub

根據(jù)示例修改代碼

好的，基本實(shí)現(xiàn)了。
還有個(gè)問(wèn)題，是Sheet1的A10保存至Sheet2后，不是一直保存到A1。是每點(diǎn)擊一次保存，都不覆蓋上次的保存。
比如：第一次保存位置為A1，此后的保存自動(dòng)向下，A2/第二次保存，A3/第三次保存……不覆蓋此前的保存。可以實(shí)現(xiàn)嗎

'獲取某列最后一行有內(nèi)容的行號(hào)的命令：
Dim nRow as Long
nRow= Range("A635535").End(xlUp).Row
'如果獲取其他列，將A改成對(duì)應(yīng)列號(hào)就行
它的下一行就是空的
將Sheet2.Range("A1")改為 Sheet2.Cells(nRow+1, 1) 或者 Sheet2.Range("A" & nRow+1)
這樣就不會(huì)每次保存覆蓋之前保存內(nèi)容了。
【也可以上面獲取nRow的時(shí)候直接+1，后面就不用加了】