ftsg.net
当前位置:首页 >> EXCEL VBA隔行取数 >>

EXCEL VBA隔行取数

VBA里用循环语句赋值 for i =1 to 行数 Range("A" & i) = Sheets("Sheet1").Range("A" & (i*Range("G2")))Next i

概要 使用for .. next 循环读取所有行,并设置 step 2 来隔行读取 代码 Dim i As Integer Dim cell As RangeFor i = 0 To 100 Step 2 '从第0行到第100行,step为2时i每次加2,所以是隔行 dim result as string resut=cell(i, 1) '得到单元格的内...

Sub xx() For i = 1 To 10 For j = 13 To 26 If Cells(i, j) "" Then Cells(i, j + 14) = (Cells(i, j) + 11 - i) Mod 10 Next NextEnd Sub

iRows=activesheet.usedrange.rows.count iColumns=activesheet.usedrange.Columns.count '如果表格前面的几行或几列可能是空的,需要获得最下面的行数和最右面的列数: with activesheet.usedrange iEndRow=.rows.count+.row-1 iEndColumn=.Col...

1、按alt+F11打开vba编辑器; 2、输入以下代码 Sub 行()MsgBox "sheet1共有" & Sheet1.UsedRange.Rows.Count & "行记录。"End Sub3、点击运行。

VBA来写效率并不快,其实可以用公式+筛选来实现:增加一列标志,公式为=MOD(期号-1,间隔+1),然后筛选标志列为0的就可以,修改间隔后,满足显示的列标志计算为0 如果要学习VBA,有两个思路,一是模拟上面的过程,使用筛选,核心代码为: Dim arr...

在宏编辑中代码如下: Sub 当前行的隔行插入1行()Selection.Offset(2, 0).InsertEnd Sub运行结果如图: 以上可根据需要进行循环 Sub 当前行的隔行插入1行_循环() For i = 1 To 5 Selection.Offset(3 * i - 1, 0).Insert NextEnd Sub运行结果如图...

做了两个模拟的表,具体如下。 表1 表2 然后在表1中使用vlookup函数抽取表2的编号,公式=VLOOKUP(B2,Sheet2!A:B,2,0),下拉。 #N/A项为表2中没有的项目,无法抽龋

Sub xx() x = [d100].End(xlUp).Row() Range(Cells(x - 1, "C"), Cells(x, "D")).Copy Sheet2.Select ActiveSheet.Range("B3").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False...

代码如下 : sub test()for i=1 to 4cells(i,"B")=left(cells(i,"A"),3)nextend sub

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