1樓：真真真白丁
親，多了幾個引號，少了個連線符。修訂如下：
sheet1.range("j" & k) = "=if(i" & k & "="""","""",""pcs"")"
2樓：匿名使用者
vba引用
範圍（「a」＆i）
細胞（i，j）
子sheet5_按鈕1_單擊（）
行（「3點03分」 ）。選擇
範圍（選擇，selection.end（xldown））。選擇
範圍（選擇，selection.end（xldown））。選擇
範圍（選擇，選擇結束（xldown）。）選擇
範圍（選擇，selection.end（xldown））選擇
selection.delete移位：.. = xlup
nowrow = 6
對於i = 2到表（「倉儲細節」）。 usedrange.rows.count
findaaa = 0
當j = 6要nowrow
如果表（「月」）。範圍（「d」＆j）=表（「倉儲細節」）。範圍（「c」＆i）＆「/」＆表（「倉儲細節」）。範圍（「g」＆i）然後
findaaa = 1
j = 65536
結束如果
下面j如果findaaa = 0然後表（「月」）。範圍（「d」＆nowrow）=表（「倉儲細節」）。範圍（「c」＆i）＆「/」＆表（「倉儲細節」）。範圍（「g」＆i）
nowrow = nowrow + 1
結束如果
接下來，我
msgbox nowrow
範圍。 （「d6：d」＆nowrow - 1）選擇
selection.sort鍵1：=範圍（「d6」），order1：= xlascending，部首：=為xlguess，_
ordercustom引數：= 1，matchcase ：= false時，取向：= xltoptobottom，sortmethod _
：= xlpinyin，dataoption1：= xlsortnormal完小
excel vba怎樣指向單元格並把單元格的值賦值給一個變數
3樓：魚木混豬喲
假設把 sheet1 中a1單元格賦值給x變數，語句如下：
x = sheets(1).range("a1")
假設x經過計算後，得到一個變數值y，那麼把y賦值給a1，語句為：
sheets(1).range("a1")=y
這樣就實現了單元格與變數之間的相互賦值
關於此例中涉及到的vba中變數的相關知識：
1、什麼是變數
變數是一個命名的記憶體位置。是在程式或**執行過程中，用於臨時儲存資料，並且其儲存的資料可以根據需要發生改變的一個命名專案。
變數由名稱(變數名)和資料型別指定：
變數名——用來引用變數
資料型別——確定變數所能儲存資訊的種類以及所佔儲存空間的大小
2、變數的命名規則
（1）名稱是由字母(a-z，a-z)或數字和下劃線「_」的任意組合。(在excel 2002以後的版本中也可以包含中文)；最後一個字元可以是型別說明符；
（2）變數名的長度不得超過255個字元
（3）變數名在有效的範圍內必須是唯一的。有效的範圍就是引用變數可以被程式識別的作用範圍 例如一個過程、一個窗體等等；
（4）變數名不能是vba中的保留字（關鍵字），也不能是末尾帶型別說明符的保留字，但可以把保留字嵌入變數名。
說明：（1）變數名是不區分大小寫的。如abc、abc、abc等都是一樣的；
（2）定義和使用變數時，通常要把變數名定義為容易使用閱讀和能夠描述所含資料用處的名稱；
（3）根據需要混合使用大小寫字母和數字。如果需要使用多單片語，變數中每個單詞的第一個字母大寫，例如：datatemp表示臨時資料，也可以兩個單詞中下劃線分隔，例如：last_num；
（4）對於變數名也有更好的建議，每個變數名以兩個或三個字元縮寫開始，這些字元縮寫對應於變數要儲存資料的資料型別。例如strworksheet as string表用來示工作表名，字首str表示當前變數的型別。
4樓：匿名使用者
比如 你想 把 sheet1 中a1 單元格 複製給 x變數 那麼x = sheets("sheet1").range("a1")比如你又要把 某個 運算結果 的變數值 y 複製給 sheet1的 a1 那麼：
sheets("sheet1").range("a1")=y
5樓：平陽虎
要做什麼，直接了當，不要吞吞吐吐，欲語還羞……
ecel中如何用vba向單元格賦值
sheet1.cells 2,1 value 祝你快樂 也可以 worksheets sheet1 range b1 value 祝你快樂 其中sheet是你所在的 sheet1是第一張表 activecell.formular1c1 祝你快樂！你看是這樣嗎？ 玩手機的張先生 sub sss dim...
在EXCEl中，用VBA實現單元格顏色改變
dim i r whit sheets 表名稱 r range a65536 end xlup rowfor i 1 to r if cells i,1 value 20 then.cells i,1 font.colorindex 4eed if if cells i,1 value 19 and...
Vba如何刪除整行並上移單元格，excel vba 刪除空白單元格所在的行
按右鍵，選擇刪除，點選刪除，選擇刪除行 excel，點中某單元格，vba將這一行的整行資料上下移 自己將 某單元格單獨移動 的語句改為整行移動就行了。將如下 複製到sheet 中。private sub worksheet selectionchange byval target as range ...