)Dim I&, J& I = 1 Do I = I + 1 If Len(Range("I" & I)) = 0 And Len(Range("K" & I)) = 0 Then Exit Do If Len(Range("I" & I)) = 0 Then J = J + 1 Else J = 0 Cells(I - J, 13 + J) = Range("L" & I)Loop End Sub 图一 图二 图三 ...
是数据类型在做怪 因为你的Sheet3.Cells（1,1).Values是一串数字，所以 vba自作主张把这个字符串 数值化啦。而数值解化的结果就是 保留15位有效数字 然后赋值给 Cells（1,2）你可以这样修改 Cells（1,2）="'"& Sheet3.Cells（1,1).Values '号是强制文本格式的意思，不打印的 ...
是cells(i+2,1) 不是cell sheets("sheet2").cells(i+2,1)
Interior.ColorIndex 是指填充颜色（这里是采用ColorIndex严格说是颜色常数）xlNone 表示清除原来的填充色。所以这行代码就是清除区域Range("b2:f5")里的填充色。二，Cells(x, y).Interior.ColorIndex = 3 Cells是单元格对象，Cells(x, y)就是指第x行y列对应的单元格 所以该行作用是，设置Cells(x...
宏：Sub xx()r = 1 For a = 1 To 5 For b = a 1 To 6 For c = b 1 To 7 For d = c 1 To 8 For e = d 1 To 9 For f = e 1 To 10 Cells(r, 1) = a Cells(r, 2) = b Cells(r, 3) = c Cells(r, 4) = d Cells(r, 5) = e Cells...
digits = "123" ' 这里替换为你要打乱的三位数 Dim perm As Collection Set perm = New Collection Call Permute("", digits, perm)Dim i As Integer For i = 1 To perm.Count Cells(i, 1).Value = perm(i) ' 输出排列到 Excel 表格中 Next i End Sub Sub Permute(prefix As String,...
上面VBA执行后则将（4，6）单元格的颜色向右偏移一格填充（4，6）颜色 将（0，1）换成（0，-1）则是向左偏移填充颜色 。执行下面的巨集程式码：Sub a()For i = 2 To 100 '假设有99行要涂色的资料 If Cells(i, 3) <> "" Then Cells(i, 3).Offset(0, 1).Interior.Color = Cells...
上面VBA执行后则将（4，6）单元格的颜色向右偏移一格填充（4，6）颜色 将（0，1）换成（0，-1）则是向左偏移填充颜色 。执行下面的宏代码：Sub a()For i = 2 To 100 '假设有99行要涂色的数据 If Cells(i, 3) <> "" Then Cells(i, 3).Offset(0, 1).Interior.Color = Cells(i,...
(1) 选择最后一类“使用公式确定要设置格式的单元格”，输入公式：=IF(ISNUMBER($E2),COLUMN()=$E2/30+7,IF($E2="月结现金",COLUMN()=7))其中，数字7是因为着色区域第一列（G）的列号是7。(2) 单击“格式”按钮，设置所要的突显格式（如绿色背景）。(3) 确定，回到“条件格式规则管理器...
如果布局像上面这样的话，代码如下：你可以自己修改的 Sub zuhe()For i = 1 To 7 l = 3 a = Cells(1, i)For j = 1 To 7 b = Cells(2, j)For k = 1 To 7 c = Cells(3, k)l = l + 1 Cells(l, "A") = a & b & c Next Next Next End Sub ...