WPS表格剩余数字自动填充

发布网友发布时间：2023-08-12 18:25

共2个回答

热心网友时间：2023-09-02 13:17

AE1=SMALL(IF(COUNTIF($W1:$AC1,$A$1:$U$1),255,$A$1:$U$1),COLUMN(A1))向下向右复制

热心网友时间：2023-09-02 13:17

你好！这个可以使用Excel表格上面的VBA程序来完成，其VBA程序代码如下：

Sub ShengYu()
Dim i, j, k, m As Long

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")

For i = 1 To 1000
m = 30
For j = 1 To 21

k = Application.WorksheetFunction.Countif(mysheet1.Range(Cells(i, 1), Cells(i, 29)), mysheet1.Cells(i, j))

If k < 2 Then
m = m + 1
mysheet1.Cells(i, m) = mysheet1.Cells(i, j)

End If

Next
Next

End Sub

相似例子参见百度经验链接：《使用VBA选出不重复的数》

追问你好！谢谢你的解答，不过本人还是WPS小白，对VBA、宏、公式等还在学习中，一下子不能理解其中的意思，所以没有采纳你的答案，还望谅解！

WPS表格 剩余数字自动填充

WPS表格剩余数字自动填充