[算表] 請問下列VBA代碼用range如何來表達？ yyingx PTT批踢踢實業坊

作者: yyingx (bless) 2015-04-03 00:57:05

軟體:EXCEL
版本:MS2007
Sheet1.Cells(5,Sheet1.Rows(1).Find(what:="總計",LookAt:=xlWhole).Column)=1
非常感謝！

作者: soyoso (我是耀宗) 2015-04-03 01:01:00

sheet1.Range(sheet1.Rows(1).Find(what:="總計",LookAt:=xlWhole).Address).Offset(4) = 1

作者: yyingx (bless) 2015-04-03 01:03:00

我想要類似這種的Sheet1.Range("C" & Sheet1.Range("a:a").Find("總計",LookIn:=xlValues).Row)能夠用上&

作者: soyoso (我是耀宗) 2015-04-03 01:11:00

如果要取得欄column的代碼(非數字)，可用split(sheet1.row(1)....address,"$")(1)

作者: yyingx (bless) 2015-04-03 01:17:00

是的，我想取列好的字母，請幫忙提供完整代碼，剛試寫了沒

作者: soyoso (我是耀宗) 2015-04-03 01:20:00

sheet1.Range(Split(sheet1.Rows(1).Find(what:="總計", LookAt:=xlWhole).Address, "$")(1) & "5") = 1^^^改為5也可以

作者: yyingx (bless) 2015-04-03 01:25:00

謝謝您，學習了！

繼續閱讀