EXCEL 嵌套循环宏语句-excel宏 for,excel如何使用宏

使用7a686964616fe78988e69d83334选择性粘贴功能并指定粘贴数值，如下面的代码所示。
#001 Sub CopyPasteSpecial()
#002 Sheet1.Range("A1").CurrentRegion.Copy
#003 Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues
#004 Application.CutCopyMode = False
#005 End Sub
代码解析：
CopyPasteSpecial过程复制工作表Sheet1中A1单元格的当前区域的数值到工作表Sheet2的A1单元格所在区域中。

直接赋值的方法
除了使用Copy方法外，还可以使用直接赋值的方法，如下面的代码所示。
#001 Sub GetValueResize()
#002 With Sheet1.Range("A1").CurrentRegion
#003 Sheet3.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value
#004 End With
#005 End Sub
代码解析：
GetValueResize过程将工作表Sheet1中的A1单元格的当前区域的数值赋予工作表Sheet3的A1单元格所在的单元格区域。
在对单元格区域直接赋值时，应保证源区域大小与目标区域的大小一致，如果源区域为动态的单元格区域，可使用Resize方法确定目标区域。

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 '计数器计数，用来统计zd当前打印到第几行了

Next
Next
End Sub
具体是什么问题？
详细点，
举例说明

你要循环工作的来目的不太明确，但按自照你的要求应该用百以下语句
Sub 宏度1()
'
' 宏1 宏
'
' 快捷键: Ctrl+z
'

for a=67 to 90 step 2
columns(chr(a) & ":" & chr(a+1)).select
next
End sub