jmfs.net
当前位置:首页>>关于vba遍历选择区域的单元格的资料>>

vba遍历选择区域的单元格

Sub sdk() i = 1 For Each sc In Selection sc.Value = i i = i + 1 Next End Sub

档X=2时,是从A6开始呢还是A7X选1和2时候还空一行选2和3之间还没有空行是随即的还是有固定就这样的啊

range("a1:b4").select range("a1").resize(4,6).select

Sub aaa() Cells(1, 1) = WorksheetFunction.Index(Range("g3:k20"), 1, 1) End Sub

[a2].Select表示选中A2单元格.也可以用[a2].Activate

首先要打开你需要的数个文件,而每个文件假设在vba所在工作簿的 a列,从a1开始,并且文件名排列下去,中间没有空白单元格,直到空白的单元格结束.需要求和的是每个文件内的shee1的a2单元格,最后合计数在程序所在文件的b1单元格

公式:=counta(选择区域)+countblank(选择区域)注意:如果某个单元格中是 空格,那么counta会统计出来,而countblank不会统计.

Sub Run() Dim Rng As Range Set Rng = Range("C1:F5") MsgBox "区域最小行:" & Rng.Row & Chr(13) & _ "区域最小列:" & Rng.Column Set Rng = Nothing End Sub

Dim i As Integer For i = 1 To Sheet1.UsedRange.Rows.Count Step 1 If Cells(i, 1).Value = "否" Then Range("a" & i).Select Exit For End If Next i 我用的是A列做列子 具体那一列你把它换了就行

按ctrl键,再选

wlbx.net | jingxinwu.net | prpk.net | ydzf.net | wwgt.net | 网站首页 | 网站地图
All rights reserved Powered by www.jmfs.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com