求助，有规律的很多单元格，填写相同内容（在线等）

李兴宾

求助，有规律的很多单元格，填写相同内容.rar (8.74 KB, 下载次数: 7)

2024-3-30 13:26 上传

点击文件名下载附件

shiruiqiang

循环判断，cells(x,1)="签字"，cells(x,2)="张三”

swl4561255

1. Sub test()
   
2. ar = [a65536].End(3).Row
   
3. For i = 3 To ar Step 4
   
4.    Cells(i, 2) = "张三"
   
5. Next
   
6. End Sub

复制代码

李兴宾

shiruiqiang 发表于 2024-3-30 13:51
循环判断，cells(x,1)="签字"，cells(x,3)="张三”

一点基础也没有，劳驾在附件中，做一下，让我一运行宏之类，就能用

李兴宾

swl4561255 发表于 2024-3-30 13:55

辛苦做一下附件

shiruiqiang

李兴宾 发表于 2024-3-30 13:55
一点基础也没有，劳驾在附件中，做一下，让我一运行宏之类，就能用

附件上传不了，代码拷贝一下
Sub test()
Dim rng As Range
For Each rng In Range("a1:a400")
If rng = "签字" Then
rng.Offset(0, 1) = "张三"
End If
Next
MsgBox "ok"

End Sub

李兴宾

李兴宾

老提示错误

李兴宾

Sub FillAndMove()
    For i = 1 To 300
        ' 选择当前单元格并向下平移 15 个单元格
        Range("A" & (i * 15 + 1)).Select
        ' 填充内容
        ActiveCell = "填充内容"
        ' 向下平移 15 个单元格
        Selection.FillDown
    Next i
End Sub

无法填写内容

李兴宾

shiruiqiang 发表于 2024-3-30 13:51
循环判断，cells(x,1)="签字"，cells(x,2)="张三”

能实现，但我不会拓展，不能修改你的代码，实现其他位置，填写其他数量，