[算表] 请问下列VBA代码用range如何来表达?

楼主: 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
谢谢您,学习了!

Links booklink

Contact Us: admin [ a t ] ucptt.com