excel vba填充单元(每次递增)
发布网友
发布时间：2022-04-27 01:12
我来回答
共2个回答
热心网友
时间：2022-06-22 01:19
Sub xx()
For i = 11 To 66
n = Cells(65536, i).End(3).Row
If n > 12 And IsNumeric(Cells(n - 12, i)) Then
a1 = (Cells(n - 12, i) + 1) Mod 10
a2 = (Cells(n - 12, i) + 2) Mod 10
a3 = (Cells(n - 12, i) + 3) Mod 10
For j = n - 9 To n
If Cells(j, i) = a1 Or Cells(j, i) = a2 Or Cells(j, i) = a3 Then
Cells(j, i).Interior.Color = vbRed
End If
Next
End If
Next
End Sub
追问原来的除外，开始递增
追答 Sub xx() For i = 11 To 66 n = Cells(65536, i).End(3).Row If n > 12 And IsNumeric(Cells(n - 11, i)) Then a1 = (Cells(n - 11, i) + 1) Mod 10 a2 = (Cells(n - 11, i) + 2) Mod 10 a3 = (Cells(n - 11, i) + 3) Mod 10 For j = n - 9 To n If Cells(j, i) = a1 Or Cells(j, i) = a2 Or Cells(j, i) = a3 Then Cells(j, i).Interior.Color = vbRed End If Next End If NextEnd Sub
热心网友
时间：2022-06-22 01:19
能多给点信息么？
是要填充excel工作表的单元格么？
从哪个单元格开始填充？向下还是向右？递增的步长是多少？
想怎么调用自动递增过程？点按钮还是在某行/某列/某单元格输入后自动填充？
Excel 怎么设置编号每打印一次自动递增
1. 打开Excel，并按下`Alt + F11`进入VBA编辑器。2. 在VBA编辑器中，插入一个新模块，并编写一个宏，该宏将在打印前运行，以增加一个指定单元格中的编号。3. 在该宏中，你需要定位到存储编号的单元格，将其值加一，然后保存更改。4. 将这个宏与打印功能关联起来，以便在每次打印之前自动执行编...
如何让excel一格内的数字快速做递增变化?
1、首先将工作簿设置手动重算 2、在A2输入公式：=RANDBETWEEN(1,1000000)3、当前表VBA代码输入下面代码:Private Sub Worksheet_Calculate()'2019-12-6 19:39:27 星期五 Dim d1 As Date, r As Long, i As Long, k As Long Static OldValue If Range("A2").Value <> OldValue Then Range(...
Excel中VBA字母和数字递增的函数怎么设
ns = ns + chr(a(i))next ttt = ns end function例：ttt("dgu")="ehv"把以上函数写在模块里，可以在excel中档函数使用，比如b1写：=ttt(a1)，下拉复制公式即可 或者自己再写vba循环调用上面的方法填写b列
Excel中使用vba循环语句输入单元格的操作方法
然后我们对i变脸递增赋值，这样才能完成while循环，每运行一次do while，则i变量+1，当i等于9为止终止循环。实际运行这段代码的结果是在A1：A8单元格中顺序填入数值1-8，如果我们将cells参数i与1互换位置，则是在A1：H1单元格中顺序填入数值1-9，大家可以看看结果。Excel中使用vba循环语句输入单元格的...
怎样用VBA在Excel中实现自动填充功能
可以这样说，无论点击Sheet1A列中的任何一个单元格，只要在Sheet2中的A列，有与其值相同的，就自动跳到Sheet2的相应单元格；方法是：右键点击“Sheet1”，在弹出的快捷菜单中，点击“查看代码”，如下图。4.之后，会弹出如下图一个的VB代码编写窗口。5.这个时候，无须做额外的代码编写，只需要按照...
Excel 怎么设置编号每打印一次自动递增
Excel无法直接设置编号每打印一次自动递增。Excel的自动递增功能通常是基于单元格的输入、填充或公式计算，与打印操作不直接关联。打印操作是Excel文档的输出过程，而Excel本身并不跟踪或记录每次打印的详细信息，因此无法直接基于打印次数来自动递增编号。然而，如果你需要在每次打印后都能确保编号递增，你可以...
Excel vba每行自动插入多行并自动填充,求大神帮忙写个脚本,用多层嵌套...
新代码：Sub CopyRow()Dim Cell As Range Dim RowCount As Integer, ColCount As Integer Set Cell = Range("A2")RowCount = 100 ColCount = Columns("L").Column With Application .Calculation = xlCalculationManual .ScreenUpdating = False End With Do While Not IsEmpty(Cell)If Cell > 1...
excel用vba实现填充功能
第一步，开发工具->插入按钮->插入一个按钮。（开发工具选项卡需要在Excel左上角圆形按钮-Excel选项中勾选）；第二步，插入按钮后会立即跳出一个框，你输入一个宏的名字，选择“新建”；第三步，输入下面的代码：（我的宏名字叫try，这个要换成你的宏的名字）Sub try()For i = 1 To 55 Range...
Excel使用VBA实现excel循环累加的代码
我们以一个具体的例子来说明使用VBA实现excel循环累加的使用。我们在A列输入具体的数据，然后在B列实现循环累加。比如我们在A1输入12，B1显示12，A1再输入13，B1就循环累加，值为：12+13=25。再次在A1输入10，B1这次的循环累加值为：10+25=35。其余单元格以此类推，只要在A列输入数字，B列就自动...
excel vba按批字符顺序填充单元
Cells(n - 3, i).Resize(3).Interior.ColorIndex = 6 If (Cells(n - 3, i) + 1) Mod 10 = Cells(n - 4, i) Then Cells(n - 4, i).Interior.ColorIndex = 6 ElseIf (Cells(n - 1, i) + 9) Mod 10 = Cells(n - 2, i) And (Cells(n - 2, i)...
