VBA - 草稿

檢索張良在那一行的行號(hào)

sheets（“sheet1”）.Columns(“A”).Find(“張良”,LookAt:=xlPart).Row/Column

最后一個(gè)有值單元格

cells(3,columns.count).end(xltoleft).column

求出A列最后1行：Cells(Rows.Count, 1).End(3).Row

"Cells(Rows.Count, 1)"表示是查找A列最后一個(gè)非空單元格，按列的可以改成"Cells(1, Columns.count)"
"end(3)"表示的向上查找，也可以寫成“end(xlup)”,還有其他3個(gè)方向，向下，向左，向右：xldown,xltoleft,xltoright

求第一行最后一列

Cells(1, Columns.Count).End(xlToLeft).Column

遇到錯(cuò)誤跳過(guò)

On Error Resume Next

二維數(shù)組轉(zhuǎn)換為一維數(shù)組相關(guān)

Application.transpose(arr) 將一維數(shù)組列轉(zhuǎn)換為行
Application.Index(arr,取得行 , 取得列) 按照參數(shù)取得二維數(shù)組指定行列內(nèi)容，當(dāng)?shù)诙谌齾?shù)為0時(shí)，取得整行或整列內(nèi)容

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容