VBA編程中，變量賦值給單元格是常見的操作。例如：Sub aa()Dim x As Stringx = "資產(chǎn)"Cells(m, n) = x 'm代表行標，n代表列標，根據(jù)不同情況可以用數(shù)字代替。end sub如果不是給當前工作表賦值，可以使用以下格式：Sheets("Sheet1").Range("B2") = 100 '把100賦值給sheet1工作表中的B2單元格也可以給某一個區(qū)域賦值：Range("A1:A100").SelectSelection = 100Selection就可以標識當前選中的單元格,上面2句代碼是將當前選中的單元格寫入100。程序可以改為下面代碼：Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim i As IntegerDim j As IntegerDim zcbh As VariantDim ytzj As VariantDim yjzj As VariantDim sh As WorksheetFor i = 3 To 10zcbh = Sheets("8").Cells(i, 3)Sheets("6").ActivateSheets("6").Columns(2).Find(what:=zcbh).ActivateActiveCell.Offset(0, 5).Selectytzj = ActiveCell.ValueSheets("8").ActivateSheets("8").Cells(i, 8).Value = ytzjNext iMsgBox "程序運行完畢"Application.ScreenUpdating = TrueEnd Sub修改為以下代碼：Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim i As IntegerDim j As IntegerDim zcbh As VariantDim ytzj As VariantDim yjzj As VariantDim sh6 As WorksheetDim sh8 As WorksheetSet sh6 = ThisWorkbook.Sheets("sheet6")Set sh8 = ThisWorkbook.Sheets("sheet8")For i = 3 To 10zcbh = sh8.Cells(i, 3)sh6.Activatesh6.Columns(2).Find(what:=zcbh).ActivateActiveCell.Offset(0, 5).Selectytzj = ActiveCell.Valuesh8.Cells(i, 8) = ytzjNext iMsgBox "程序運行完畢"Application.ScreenUpdating = TrueEnd Sub