资源描述：
《VBA值列选取与复制,赋值.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、‘从活动单元格向上12行到向上1行的总和ActiveCell.FormulaR1C1=”SUM(R[-12])C:R[-1]C”‘引用第C-D列和第F-G列Range(“B2:D6”) ‘引用B2-D6的单元格 同Range(“B2”,”D6”),Rangge(Cells(2,2),Cells(6,4))‘引用第2行3列Cells(2,3) 或Cells(2,”C”) ActiveCell.Resize(4,4) ‘自当前单元格开始创建一个4行4列的区域Range(“B2”).Resize(5,3) ‘从B2开始扩展的区域为5行3列的
2、区域‘不连续单元格的引用Range(“A1:B2,C4,D6:F7”) 引用从A1-B2、C4和D6-F7的区域 ‘设置多个不连续区域SubUnion DimbigRangeasRange WorkSheets(“Sheet1”).Activate SetbigRange=Application.Union(Range(“A1:B2”),Range(“C4”),Range(“D6:F7”)) bigRange.SelectEndSub ‘新建名称为单元格区域添加名称”客户”SubAddName2()
3、 ActiveSheet.Names.AddName:=”客户”,RefersTo:=”=”&Selections.Address()EndSub ‘直接为选定的区域命名Selection.Name=”品名” ‘新建名称SubAddName1() ActiveSheet.Names.AddName:=”品名”,RefersTo:=”=”=$B$2:$B$80EndSub ‘删除命名SubDeleteRangeNames() DimrNameasName ForEachrNameInActiveWor
4、kbook.Names rName.Delete NextrNameEndSub ‘选取单个单元格Range(“A1”).SelectCells(1,1).Select[A1].Select ‘选取A1-A10,C1-C10的不连续区域Range(“A1:A10,C1:C10”).SelectUnion(Range(“A1:A10”),Range(“C1:C10”).Select ‘选取当前区域和使用的区域CurrentRegion.SelectionUsedRange.Selection ‘选取A1-B10
5、的单元格区域Range(“A1:B10”).SelectRange(Cells(1,1),Cells(10,2)).Select ‘命名区域的选择Range(“品名”).Select ‘选取整个工作表Cells.Select或Columns.Select或Rows.Select ‘使用常量给单元格赋值SubResetValuesToZero2() DimnasRange ForEachnInWorksheets(“Sheet1”).Range(“WorkArea1”) Ifn.Value<>0Then
6、 n.Value=0 EndIf NextnEndSub ‘给一个区域赋值SubsetZero() Sheet1.Range(“A1:D5”)=0EndSub ‘把变量赋值给单元格Subtest() Fori=1to10 Range(“A”&i)=i NextiEndSub ‘使用Chr函数转换数值变量为字符SubTest2() DimaasString DimIasInteger Fori=65to70
7、 A=Chr(i) Range(a&1)=i NextiEndSub ‘把单元格的值赋值给数组SubRangeToArray() DimmyArray(3)asinteger DimIasinteger Fori=1to3 myArray(i)=Cells(1,i) NextiEndSub ‘把单元格中一行单元格的值赋给数组SubRangeToArray0() DimIasinteger Di
8、mvarArrayasVariant varArray=Sheet1.Range(“A1:C1”).Value
