Question

excel表格VBA语言

wps能否支持宏代码？
将A列填充黄色单元格下面的数据，复制到D列
Sub aa()
Dim i
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1).Interior.ColorIndex = 6 Then 'a列填充黄色代码为6
n = n + 1
Cells(i + 1, 1).Copy Cells(n, "D") '依次复制到D列
End If
Next
End Sub

老师，你好，这是你之前对我的回答，我之前用WPS可以正常使用这个指令，但是现在我换成微软的excel后，这个指令不能用呢，是我没操作对吗？

Answer 1

Sub aa()
Dim i
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1).Interior.Color = vbYellow Then 'a列填充黄色
n = n + 1
Cells(i + 1, 1).Copy Cells(n, "D") '依次复制到D列
End If
Next
End Sub

主要是，黄色代码，高级版本 可能不是6

Answer 2

入门的话，各类型变量，for while循环，if 条件判断。Msgbox 输出提示；
row1 = Sheets("总表").Range("B65536").End(xlUp).Row + 1 '查找B列中最后一个已使用的单元格 行标
range cells的表达。
最重要的能看懂录制宏。好多VBA可以直接录制宏，然后修改代码就可以了。