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

代码改百了一下，应该度快问很多，你自己答试试看回：

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) = arr
End Sub

你的判断是为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时，如果是判断为zhidao空，=0改变＝""
next x
end sub

材料/工具抄：Excel2010

1、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。

2、接着，在袭表格中百输入简单的表格，比如水果表格。度

3、然后在VBA控件下拉菜单中，选择按钮控件。

4、接着在表格中绘制出按钮控件，并修改控件名称。

5、然后，鼠标左键单击【查看代码】按钮。

6、接着，在代码窗口中问输入给单元格的赋值语句。

7、最后在设计窗口上，鼠标左键单击按钮，答可以看到表格中的单元格中自动显示出数据了

Sheet1.Range("c" & z) = Application.WorksheetFunction.Sum(Sheets(z).Range("i4:i35"))

改成上百面这样即度可。多练习。照抄别人代问码再修改也答是很内好学习，多看容excelhome论坛。