如何通过修改命令实现要求

送到

我想做的是，点一下按钮，然后在每个空白行中插入自己需要的数据。但是，目前 写的代码只能实现， 在“板×”行下面自动插入数据。我想实现的功能是，点一下按钮，在“×#，板×”所在的区域也能实现数据自动插入，想请教下大神如何进行修改。

送到

蓝桥玄霜 发表于 2018-8-12 14:46
1,没有看到代码；
2，插入什么数据？

没有保存为宏的excel 导致没有代码出现，现已经更改好。
我需要插入的数据都是从前面列中选取的。

蓝桥玄霜

1,没有看到代码；
2，插入什么数据？

蓝桥玄霜

1. Sub 宏1()
   
2. Dim i&, r%, arr1(), ks, js
   
3. For i = 1 To Cells(65536, 1).End(3).Row
   
4.     If InStr(Cells(i, 1), "#") Then
   
5.     r = r + 1
   
6.     ReDim Preserve arr1(1 To r)
   
7.    arr1(r) = i
   
8.    End If
   
9.     Next
   
10. For i = 1 To r
    
11.     If i <> r Then
    
12.       js = arr1(i + 1) - 5
    
13.       Else
    
14.       js = UBound(arr1)
    
15.       End If
    
16.       ks = arr1(i) + 2
    
17.       Cells(js, 1).Formula = "=max(r" & ks & "c:r[-1]c)"
    
18.       Cells(js, 2).Formula = "=min(r" & ks & "c:r[-1]c)"
    
19.       Cells(js + 1, 1).Formula = "=min(r" & ks & "c:r[-2]c)"
    
20.       Cells(js + 1, 2).Formula = "=min(r" & ks & "c:r[-2]c)"
    
21.       Cells(js + 2, 1).Formula = "=(r" & ks & "c)"
    
22.       Cells(js + 2, 2).Formula = "=(r" & ks & "c)"
    
23.       Next
    
24. End Sub
    

复制代码

送到

蓝桥玄霜 发表于 2018-8-13 14:24

这代码仍旧不能在 以在“×#，板×”所在的区域也能实现数据自动插入。或许能不能换一种方法，在A13 “板1”前面 自动插入A1“2#” 的数据， 这个A1会随着区域的变化也会发生变化。