VBA - 草稿

检索张良在那一行的行号

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

最后一个有值单元格

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

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

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

求第一行最后一列

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

遇到错误跳过

On Error Resume Next

二维数组转换为一维数组相关

Application.transpose(arr) 将一维数组列转换为行
Application.Index(arr,取得行 , 取得列) 按照参数取得二维数组指定行列内容，当第二第三参数为0时，取得整行或整列内容