<em>EXCEL</em>的<em>VBA</em>代码，求<e

再加一百个循环，把列也循环起度来

Sub col()
i=1
for i=1 to 10 '(此处数字问为希望循环的列数)
k = 1
Do
k = k + 1
If Len(Cells(k, i+2)) = 1 Then Cells(k, i+2) = "色答" & Cells(k, i+2)
Loop Until Cells(k, i+2) = ""
i=i+1
next i
End Sub
此代码只作用于版C列 怎么权改进作用于C列D列E列一直下去

求别人修改代码，你zd不说明你代码想达到的目的别人也不好改呀，因为你的代码也许无法满足要求，别人也改不了，多数时候要换个思路内来解决问题，不能在一棵树上吊死。从其他几位的回答和你的追问分析，你是想选中的单元格下拉选择第一项，那将以下这容句
Application.SendKeys "%{DOWN}"
改为
Target = Split(Target.Validation.Formula1, ",")(0)
即可
SHEET2.CELLS.CLEARCONTENTS
SHEET1.RANGE("A1:C1").COPY SHEET2.CELLS(1,1)
j=1
z=2
FOR i=2 TO CELLS(ROWS.COUNT,1).END(XLUP).ROW
SHEET1.RANGE("A"& i & ":C"& i).COPY SHEET2.CELLS(z,j)
z=z+1
IF MOD(i,43)=0 THEN
j=j+3
z=2
SHEET1.RANGE("A1:C1").COPY SHEET2.CELLS(1,j)
END IF
NEXT i

试一下zd，看有没内有问题容

Criteria1:=Array( _
".0.", "1", "10", "100", "1000", "104", "12", "120", "128", "132", "144", "150", "156", _
"168", "17580", "180", "1820", "185", "190", "192", "196", "20", "200", "2000", "204", _
"208", "2116", "216", "224", "24", "240", "256", "3", "300", "312", "320", "330", "36", _
"360", "36000", "3744", "4", "40", "414", "4144", "416", "420", "440", "48", "480", "50", _
"54", "6", "60", "600", "62", "70", "72", "7200", "84", "864", "912", "96", "="), Operator _
:=xlFilterValues
改成:
Criteria1:="<>0" ,Operator :=xlFilterValues