excel單元格的標(biāo)識(shí)方法-資料下載頁
2025-08-12 09:53本頁面
【導(dǎo)讀】Cells),Range(Cells(起始單元格行數(shù),起始單元格列數(shù)),初學(xué)者一定要學(xué)會(huì)定義變量，這是一種良好習(xí)慣，變量名也要規(guī)范化一點(diǎn)，大家以后別學(xué)我，因?yàn)槟忝看尉筒挥萌?shù)了。我們?cè)賮砀囊幌逻@一句：Sheets.Range.CopySheets.Cells. 大家看看兩句的區(qū)別了嗎？
【正文】 amp。 i).Copy Sheets(合并 ).Cells(j, 1) Next 如果工作表名稱是中文 ,能這樣嗎 沒有關(guān)系的 呵呵 ~懶得有理，那讓我們?cè)賮砗喕幌麓a 寫一段代碼了解一下 Sub 統(tǒng)計(jì)工作表數(shù)量 () MsgBox End Sub 這個(gè)屬性值方便吧，只要把 For k = 1 To 3改為 For k = 1 To OK了 工作表數(shù)量是四個(gè)，把合并工作表也合并進(jìn)去了 改變順序就不行了 那怎么辦了，再加一個(gè)判斷就行了 ,如果是工作表名為”合并”的我們就跳過它 但是如果知道工作表名稱呢 寫一段代碼試試 Sub 工作表名稱 () For i = 1 To MsgBox Sheets(i).Name Next End Sub 呵呵 ~工作表名稱是不是一個(gè)一個(gè)得出來了 ? 那我們改一下代碼，再上一句判斷 If Sheets(i).Name 合并 Then i = Sheets(k).Range(A65536).End(xlUp).Row j = Sheets(合并 ).Range(A65536).End(xlUp).Row + 1 Sheets(k).Range(A2:L amp。 i).Copy Sheets(合并 ).Cells(j, 1) End If 最后的完整代碼為： Sub 合并工作表 () Dim i As Integer, j As Integer, k As Integer For k = 1 To If Sheets(k).Name 合并 Then i = Sheets(k).Range(A65536).End(xlUp).Row j = Sheets(合并 ).Range(A65536).End(xlUp).Row + 1 Sheets(k).Range(A2:L amp。 i).Copy Sheets(合并 ).Cells(j, 1) End If Next k End Sub 今天就講到這里，總結(jié)一下今天的幾個(gè)關(guān)鍵詞： Range與 Cells在區(qū)域中的表示方法，及 Rows和 Columns在行列區(qū)域中的表示方法 Sheets(i).Name工作表名稱的獲取 方法 For?? Next循環(huán)的應(yīng)用 If ?? Then 判斷的應(yīng)用
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1