间隔填充

may158

按照图示要求间隔填充。 间隔填充.zip (14.54 KB, 下载次数: 13)

2024-3-28 12:21 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.28
   
2.     On Error Resume Next
   
3.     With Sheets("Sheet1")
   
4.         .UsedRange.Offset(1, 1).ClearContents
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .[a1].Resize(r, 8)
   
7.         For i = 2 To UBound(arr)
   
8.             arr(i, 2) = "○"
   
9.         Next
   
10.         For j = 3 To UBound(arr, 2)
    
11.             k = arr(1, j)
    
12.             For i = 2 To UBound(arr) Step k
    
13.                 arr(i + k - 1, j) = "○"
    
14.             Next
    
15.         Next
    
16.         .[a1].Resize(r, 8) = arr
    
17.     End With
    
18. End Sub
    

复制代码

may158

ykcbf1100 发表于 2024-3-28 12:42
附件供参考。。。

D-H列（3-7）间隔未按要来 日期也不能自动生成

yynrzwh

C-H列的第1个○要在其前1列的○不为空
这个是什么意思？

半百

sunya_0529

WPS里的JSA练习一下——