wlbk.net
当前位置:首页 >> EXCEL中如何编写VBA判断循环多行单元格数值及赋值. >>

EXCEL中如何编写VBA判断循环多行单元格数值及赋值.

简单的循环Sub test() Dim i As Long Dim endRow As Long endRow = Range("A" & Rows.Count).End(xlUp).Row '获取末行 if endRow < 1 then exit subFor i = 1 To endRow-1 if trim(range("A" & i).value) = "" then Range("F" & i).Formula =

你的判断是为0而不是为空,如果是判断为空,="" 循环如下 sub test () i=range("A65536").end(xlup).row'判断A列最后一行的行号 for x=1 to i'建立循环从第一行到最后一行 if cells(x,1)=0 then cells(x,6)=cells(x,1) & cells(x,2) & cells(x,3)'判断A值为0时,如果是判断为空,=0改变="" next x end sub

举个例子,比如对第一列中 a1:a10单元格进行循环判断,可以这么书写for i=1 to 10 if cells(i,1)>10 then .. end ifnext

循环语句很多类型,比如for next ; do while loop等等 判断语句可以用if或者Select 各举例一个:for i=1 to 5 msgbox i next if 3>2 then msgbox "对" end if

Sub AutoInput()Dim i, j, k, m, n As Long Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")Set mysheet2 = ThisWorkbook.Worksheets("Sheet2")k = 1 '初始值赋值For i = 1 To 8 '所要填充的列数为8列 If i Mod 2 = 0 Then n = 0 For j = 1 To

代码改了一下,应该快很多,你自己试试看: Sub 生成() Dim i,j,n, arr(2 To 1001, 2 To 1001) n = 0 For i = 2 To 1001 For j = 2 To 1001 n = n + 1 arr(i,j) = n Next Next Sheets("地图").Cells(2, 2).resize(1000,1000) = arrEnd Sub

If 条件1 Then处理ElseIf 条件2 Then处理Else处理End If条件与条件之间可以用 "And, Or, Not" 等.判断符可以用 "=,<,>,<=,>=,<>" 等.

在 提交按钮 的代码中建立 textbox 的数组(在form的初始化中建立也行),然后就可以循环引用了:Private Sub CommandButton1_Click()Dim a, i, jWith Me a = Array(.TextBox1, .TextBox2, .TextBox3, .TextBox4, .TextBox5, _ .TextBox6, .TextBox7,

提问比较笼bai统.大体上就是用公式赋值,在需要赋值的单元格输入=IF(判断是否满du足条件,满足的值,不满足的值)至于为什么公式里没zhi有具体内容,是因为楼主dao的提问没有具体内容.用一张带有行列标号的具体的图,在描述中引用单专元格,并说明希望得到的结果,可以把你的问题描属述得更清楚

如果只是像你说的这样,不用VBA,公式即可,先在A1、A2、A3中分别输入123,然后在A4中输入以下公式并下拉即可:=IF((A1+1)>3,1,A1+1)

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