请教VBA如何用数组填充公式

kezhiye

附件中Ｊ列公式是用下拉填充的VBA代码实现的。
请教如果用数组代码实现公式的填充？谢谢
VBA如何用数组填充公式.rar (390.24 KB, 下载次数: 4)

2024-5-1 20:01 上传

点击文件名下载附件

剑指E

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.1
   
2.     r = Cells(Rows.Count, 5).End(3).Row
   
3.     arr = [d1].Resize(r, 7)
   
4.     On Error Resume Next
   
5.     For i = 2 To UBound(arr)
   
6.         arr(i, 7) = arr(i, 5)
   
7.         If arr(i, 3) = "账户充值" Then arr(i, 7) = "充值"
   
8.         If arr(i, 3) = "消费冲正" Then arr(i, 7) = ""
   
9.         If arr(i, 3) = "消费撤消" Then arr(i, 7) = ""
   
10.         If i <= r - 1 Then
    
11.             If arr(i + 1, 3) = "消费冲正" Then arr(i, 7) = ""
    
12.         End If
    
13.     Next
    
14.     [j1].Resize(r, 1) = Application.Index(arr, 0, 7)
    
15. End Sub
    

复制代码

kezhiye

谢谢楼上二位老师的帮助！如果下拖的公式由一列变成三列，如本楼附件，将日期拆分成年月日，代码改用数组又要如何写呢？谢谢
VBA如何用数组填充公式（三列）.rar (417.12 KB, 下载次数: 3)

2024-5-2 16:47 上传

点击文件名下载附件

ykcbf1100

kezhiye 发表于 2024-5-2 16:48
谢谢楼上二位老师的帮助！如果下拖的公式由一列变成三列，如本楼附件，将日期拆分成年月日，代码改用数组又 ...

这个比较简单。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.5.3
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 6)
   
4.     For i = 2 To UBound(arr)
   
5.         rq = arr(i, 3)
   
6.         arr(i, 4) = Year(rq) & "年"
   
7.         arr(i, 5) = Month(rq) & "月"
   
8.         arr(i, 6) = Day(rq) & "日"
   
9.     Next
   
10.     [a1].Resize(r, 6) = arr
    
11.     MsgBox "OK！"
    
12. End Sub
    

复制代码

kezhiye

ykcbf1100 发表于 2024-5-3 07:02
参与一下。。。

谢谢老师再次热情帮助！