1、首先開啟一個工作樣表作為例子。
2、使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：Sub test2()Worksheets("Sheet1").Range("A1").Value = _Worksheets("Sheet1").Range("A5").ValueMsgBox "現在A1單元格中的值也為" & _Worksheets("Sheet1").Range("A5").ValueEnd Sub
3、可以看到這裡指定了中名為sheet1的工作表，並使用了range選取了a1單元格，選擇單元格值的屬性。換個方式說就是sheet1中a1單元格是物件，value值是屬性。
4、這裡有個下劃線，在vba中是作為連線符存在的，意思是下一行的程式碼是連結到本行程式碼後，不是中斷的語句。
5、使用msgbox函式來顯示一段資訊，提示a1的單元格值為，後面連結了a5單元格的值，其實因為前面有賦值，所以這裡直接寫a1單元格的值也是可以的。
6、因為這裡的物件很統一，所以程式碼我們可以用with簡寫，那麼我們只用寫一個with語句像下面這樣With Worksheets("sheet1") .Range("A1").Value = _ .Range("A5").Value MsgBox "現在A1單元格中的值也為" & _ .Range("A5").Value End With。
7、可以看到程式碼執行成功，a1和a5單元格內的值一樣，證明賦值成功。
8、
1、首先開啟一個工作樣表作為例子。
2、使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：Sub test2()Worksheets("Sheet1").Range("A1").Value = _Worksheets("Sheet1").Range("A5").ValueMsgBox "現在A1單元格中的值也為" & _Worksheets("Sheet1").Range("A5").ValueEnd Sub
3、可以看到這裡指定了中名為sheet1的工作表，並使用了range選取了a1單元格，選擇單元格值的屬性。換個方式說就是sheet1中a1單元格是物件，value值是屬性。
4、這裡有個下劃線，在vba中是作為連線符存在的，意思是下一行的程式碼是連結到本行程式碼後，不是中斷的語句。
5、使用msgbox函式來顯示一段資訊，提示a1的單元格值為，後面連結了a5單元格的值，其實因為前面有賦值，所以這裡直接寫a1單元格的值也是可以的。
6、因為這裡的物件很統一，所以程式碼我們可以用with簡寫，那麼我們只用寫一個with語句像下面這樣With Worksheets("sheet1") .Range("A1").Value = _ .Range("A5").Value MsgBox "現在A1單元格中的值也為" & _ .Range("A5").Value End With。
7、可以看到程式碼執行成功，a1和a5單元格內的值一樣，證明賦值成功。
8、