[已解决]为何上面黄色的公式不能复制到最上面插入函数的右边

喜欢电子表格

宏3.zip (77.57 KB, 下载次数: 28)

2013-2-21 14:52 上传

点击文件名下载附件 请你分析原因，谢谢

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-21 15:06

放公式的单元格在输入的时候前面多了一个单引号，所以是按文本存储的，复制公式时必须选中除单引号外的部分再复制。

跳转到最佳答案楼层

zxc1152468

点击R列可以看见公式，能复制到插入函数的右边

cbg2008

放公式的单元格在输入的时候前面多了一个单引号，所以是按文本存储的，复制公式时必须选中除单引号外的部分再复制。

hwc2ycy

你的代码一运行把单元格全填了，公式自然就没了。

hwc2ycy

1. Sub test()
   
2.     Dim arr, x&, y&, i&
   
3.     With Sheet1
   
4.         arr = .Range("A1:DD" & .Range("A65536").End(xlUp).Row).FormulaR1C1Local
   
5.         For y = 10 To UBound(arr, 2) Step 3
   
6.             For x = 1 To UBound(arr)
   
7.                 If arr(x, y) <> "" Then i = 0 Else i = i + 1
   
8.                 arr(x, y + 1) = i
   
9.             Next x
   
10.         Next y
    
11.         .Range("A1").Resize(UBound(arr), UBound(arr, 2)).FormulaR1C1Local = arr
    
12.     End With
    
13. End Sub

复制代码

你先在单元格填上公式，再用代码试试。