求修改，代码公式加绝对引用后报错

hfvung · 发表于 2024-8-17 10:52

详情请看附件：

A求修改代码 .rar (14.81 KB, 下载次数: 3)

longwin · 发表于 2024-8-17 11:04

这样改一下：

醉眼看尘世 · 发表于 2024-8-17 11:08

唉，你这代码都写的是啥。

Sub 插入公式New()
Dim i As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
Dim k As Integer
Dim ws2 As Worksheet
Set ws2 = ActiveSheet
With ws
For i = 6 To 120 Step 16
If ws.Cells(2, i - 1) <> "" Then
.Cells(2, i) = "=COUNTIF(" & .Cells(2, i - 2).Resize(1, 2).Address & ",""*""&" & .Cells(1, i).Address(False, False) & "&""*"")" '请修改此处公式这个公式不适合间隔16列写入。
.Cells(2, i).Resize(1, 10).FillRight
lastrowf = .Cells(Rows.Count, "C").End(xlUp).Row '填充定位
.Cells(2, i).Resize(lastrowf - 1, 10).FillDown
End If
Next i
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 求修改，代码公式加绝对引用后报错