资源描述：
《ExcelVBA常用代码VSTO版》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、ExcelVBA常用代码VSTO版(C#)1-1使用Range属性this.Range["A3:F6,B1:C5"].Select();1-2使用Cells属性for(inticell=1;icell<=100;icell++){this.Application.Worksheets[2].cells[icell,1].value=icell;}1-3使用快捷记号#N/A1-4使用Offset属性this.Range["A1:A3"].Offset[3,3].Select();1-5使用Resize属性this.Range["A1"].Resize[3,3].Select();1-6
2、使用Union属性this.Application.Union(this.Range["A1:D4"],this.Range["E5:H8"]).Select();1-7使用UsedRange属性this.UsedRange.Select();1-8使用CurrentRegion属性this.Range["A5"].CurrentRegion.Select();2-1使用Select方法this.Application.Worksheets[3].Activate();this.Application.Worksheets[3].Range["A1:B10"].Select();2-
3、2使用Activate方法this.Application.Worksheets[3].Activate();this.Application.Worksheets[3].Range["A1:B10"].Activate();注:此处的代码,可以运行,但是只会选中A1这一个单元格2-3使用Goto方法this.Application.Goto(this.Application.Worksheets[3].Range["A1:B10"],true);3-1获得指定行,列中的最后一个非空单元格Excel.Rangerng=this.Range["A65535"].End[Excel.Xl
4、Direction.xlUp];MessageBox.Show("A列中最后一个非空单元格是"+rng.Address[0,0]+",行号"+rng.Row.ToString()+",数值"+rng.Text);4-1定位单元格Excel.Rangerng=this.UsedRange.SpecialCells(Excel.XlCellType.xlCellTypeFormulas);rng.Select();MessageBox.Show("工作表中有公式的单元格为:"+rng.Address);5-1查找单元格Excel.Rangerng,Rng;Rng=this.Range["
5、A:A"];stringstrFind=textBox1.Text;if(strFind.Trim()!=string.Empty){rng=Rng.Find(strFind,Rng.Cells[Rng.Cells.Count],Excel.XlFindLookIn.xlValues,Excel.XlLookAt.xlWhole,Excel.XlSearchOrder.xlByRows,Excel.XlSearchDirection.xlNext,false);if(rng!=null){this.Application.Goto(rng,true);}else{MessageBox
6、.Show("没有找到单元格!");}}注:C#中没有InputBox,这里用文本框代替,另,C#中没有with……Endwith语句.5-1查找单元格重复数据Excel.Rangerng,Rng;stringFindAddress=string.Empty;Rng=this.Range["A:A"];stringstrFind=textBox1.Text;if(strFind.Trim()!=string.Empty){rng=Rng.Find(strFind,Rng.Cells[Rng.Cells.Count],Excel.XlFindLookIn.xlValues,Excel.
7、XlLookAt.xlWhole,Excel.XlSearchOrder.xlByRows,Excel.XlSearchDirection.xlNext,false);if(rng!=null){FindAddress=rng.Address;do{rng.Interior.ColorIndex=6;rng=Rng.FindNext(rng);}while(rng!=null&&rng.Address!=FindAddress);}}5-2使用Like运算
