excel宏中写循环语句-excel循环嵌套,excel嵌套if

不用VBA，用公式，假设SHEET2复制SHEET1的A列，A1公式：

=sheet1!A1
下拉；
同样方法复制粘贴其它工作表。
（这样，当SHEET1中数据变化时，可以自动更新其它工作表的内容）

sub xx()
dim n%,i%
n=cells(1,1)
for i=1 to n
cells(i,3)=right((1000+i) & cells(1,2),5)
next i
end sub
Dim i
For i = 1 To 100
If Range("O" & i) = "" Then ‘不等“”就直接跳到zdend if后的代码专了。属
’等于空值要执行的代码写在这里就行了。
End If
Next

Sub Macro1()
'
' Macro1 Macro
'

'
Dim xStr As String
Dim xNum As Integer

Dim yStr As String
Dim yNum As Integer
Dim Counter As Integer

Counter = 1

xStr = "X" ‘这是第抄1列要百显示的字符 也可以度是其他
yStr = "Y" '这是第2列要显示的字符 也可以是其他
xNum = 3 '这是第1列循环次数
yNum = 3 '这是第2列循环次数

For i = 1 To xNum
For j = 1 To yNum

Sheet1.Cells(Counter, 1) = "X" & i ’对sheet 1 的第一列赋值 x1, x2, x3 ...
Sheet1.Cells(Counter, 2) = "Y" & j ’对sheet 1 的第2列赋值 y1, y2, y3...

Counter = Counter + 1 '计数问器计数，用来答统计当前打印到第几行了

Next
Next
End Sub