vba編程 變量賦值單元格

dim x as string

x="資產"

cells(m,n)=x 'm代表行標，m代表列標，根據不同情況可以用數字代替。

end sub

如果不是給當前工作表賦值，可以用以下格式

Sheets("Sheet1").range("B2")=100 '把100賦值給sheet1工作表中的B2單元格

也可以給某壹個區域賦值：

range("A1:A100").select

Selection=100

Selection就可以標識當前選中的單元格,上面2句代碼是將當前選中的單元格寫入100.

程序可改為下面代碼

Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim i As Integer

Dim j As Integer

Dim zcbh As Variant

Dim ytzj As Variant

Dim yjzj As Variant

Dim sh As Worksheet

For i = 3 To 10

zcbh = Sheets("8").Cells(i, 3)

Sheets("6").Activate

Sheets("6").Columns(2).Find(what:=zcbh).Activate

ActiveCell.Offset(0, 5).Select

yjzj = ActiveCell.Value

Sheets("8").Activate

Sheets("8").Cells(i, 8).Value = ytzj

Next i

MsgBox "程序運行完畢"

Application.ScreenUpdating = True

End Sub

修改為以下代碼：

Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim i As Integer

Dim j As Integer

Dim zcbh As Variant

Dim ytzj As Variant

Dim yjzj As Variant

Dim sh6 As Worksheet

Dim sh8 As Worksheet

Set sh6 = ThisWorkbook.Sheets("sheet6")

Set sh8 = ThisWorkbook.Sheets("sheet8")

For i = 3 To 10

zcbh = sh8.Cells(i, 3)

sh6.Activate

sh6.Columns(2).Find(what:=zcbh).Activate

ActiveCell.Offset(0, 5).Select

ytzj = ActiveCell.Value

sh8.Cells(i, 8) = ytzj

Next i

MsgBox "程序運行完畢"

Application.ScreenUpdating = True

End Sub