excel中vba编程实现a1=1 a2=2 a3=3····一直到a10=10怎么实现 用循环语句 球解释

来自:社会风气    更新日期:早些时候
excel vba编程:运行一次,a1=1,第二次,a2=2。。。。~

其实你已经举得差不多了,下面的也只是变形:
range(cells(1,1),
cells(100,1))
如果获取a1周围一块的空间,可以:
range("a1").currentregion
如果获取表内所有使用区域,可以:
activesheet.usedrange

这两个表达式的语句是:
Cells(3,1) = Cells(1,1) + Cells(2,1)Cells(3,2) = Cells(1,2) + Cells(2,2)我想,如果就是两行,你不会发帖子让大家写代码,但是不知道你接下来是C1+C2=C3呢,还是A6=A4+A5,你的心思我猜不透呀,你究竟是有100行需要写呢,还是有100列需要写?
如果是100行、100列,那么语句如下:
for i=1 to 100 step 3 for j=1 to 100 Cells(i+2,j) = Cells(i,j) + Cells(i+1,j) next jnext i

Sub test()
Dim i As Integer '声明i是整数变量
For i = 1 To 10 '循环1到10
Cells(i, 1) = i '赋值
Next
End Sub

dim a(1 to 10) as long
dim i as long

for i = 1 to 10
a(i)=i
next

For I = 1 To 10
Cells(I, 1) = I
Next I


excel中vba编程实现a1=1 a2=2 a3=3····一直到a10=10怎么实现 用循环语句 球解释视频

相关评论:
  • 17743299522如何在excel中输入vba代码?
    诸解邦1、首先,在Excel中新建数据表格。2、然后,在电脑键盘上按快捷键Alt+F11,从而Excel进入vba界面。3、接着,在Excel的vba界面依次点击插入——模块,从而进入代码编写的界面。4、最后,在代码编写的界面输入代码:sub合计20()Dim a Do Until Sheet2. Cells (a, 2)=""Sheet2. Cells(2, 3)= ...

  • 17743299522在Excel中取得某列最后一行的VBA代码怎么写(各列行数不同)?
    诸解邦Excel VBA 找到某一行的最后一个非空单元格 用VBA代码怎么写阿 本人VBA小白 iCol=Cells(1,colunms.count).end(xltoleft).column 这是第1行的 vba 获取excel表中某列(列号假设为A)的行数,求代码 r= range("A65536").end(xlup).row excel VBA想让某行的A到Z列清空,代码怎么写?

  • 17743299522Excel 如何用VBA写A列中某个单元格与项中相同值自动填充颜色,如下图表...
    诸解邦你好!楼主想要的VBA程序代码,其程序代码如下:Sub ColorInset()Dim i1, i2, i3 On Error Resume Next '忽略运行过程中可能出现的错误 Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表 For i1 = 2 To 1000 '从第2行到1000行 If mysheet1.Cells(i1, 1) <> "" Then ...

  • 17743299522excel用vba实现单元格每个字符从左往右判断,是否包含a、b或c,如果是...
    诸解邦写了两个例子,都没做更多循环,供参考。Public Sub CXzf() Dim i As Byte, L(1 To 3), a a = Array("a", "b", "c") For i = 1 To 3 L(i) = IIf(InStr(Range("a1").Value, a(i - 1)) <> 0, InStr(Range("a1").Value, a(i - 1)), "a") ...

  • 17743299522在Excel VBA中如何给一个变量赋值为A列第一个空单元格的行号?_百度知 ...
    诸解邦Private Sub test() Dim rowNo As Long, rng As Range Set rng = Sheet2.Range("A:A").Find("", , , xlValue) If Not rng Is Nothing Then rowNo = rng.Row '行号 End IfEnd Sub

  • 17743299522EXCEL中vba如何应用整列
    诸解邦软件版本:Office2007 方法如下:1.将A列全部填充为红色:2.Alt+F11,输入代码如下:3.F5执行代码,就可以看到VBA填充颜色代码应用到了A列全部:

  • 17743299522在excel中如何用vba来实现查找特定的字符串?
    诸解邦1、首先打开需要编辑的Excel表格,进入到编辑的的页面中。2、然后在弹出来的窗口中,鼠标右键单击工作表,选择打开“查看代码”。3、然后在弹出来的窗口中,点击输入代码:Sub AAA()Dim I As Long For I = 1 To 1000 '行 范围,自己修改 If InStr(Range("A" & I), "invalidstatus") > 0 ...

  • 17743299522用VBA语句在EXCEL实现: sheet1的A列从A5开始由上向下的第一个空白单元...
    诸解邦Sub dd() MsgBox "A5单元格以下第一个空白单元格的行号是:" & ActiveSheet.Range("A5").End(xlDown).Row + 1End Sub

  • 17743299522如何在EXCEL中进行VBA编程
    诸解邦1、首先要打开开发工具选项。详见百度经验《如何打开Excel的“开发工具”工具栏》http:\/\/jingyan.baidu.com\/album\/39810a23c863a4b636fda6d9.html?picindex=1 开发工具栏里面有visual basic 、宏、录制宏等按钮。点击visual basic就可以进行编程了。2、技巧。VBA语言方便易学,但在excel的控件名称有...

  • 17743299522EXCEL如何用VBA实现单元格区域A1到A10里值小于10的单元格相加_百度知 ...
    诸解邦SUMIF(A1:A10,"<10")sumif(条件匹配区域,条件,求值区域)第三个参数求值区域可以不写就默认为条件匹配区域 下面是VB,为什么要用VB呢。自带函数不是简单吗 Public Sub sum1()Dim arr As Range, a As Variant a = 0 For Each arr In Range("A1:A10")If arr.Value < 10 Then a = a +...

  • 相关主题精彩

    版权声明:本网站为非赢利性站点,内容来自于网络投稿和网络,若有相关事宜,请联系管理员

    Copyright © 喜物网