急求！如何实现这个上翻一行的功能-已付有附件

sxjpf2119

是整个10期数据都变成上一期的数据

sxjpf2119

川贝枇杷 发表于 2018-6-12 10:06
我理解错了，没看懂你的意思，什么叫上翻一行，是类似滑动滚轮么？

2018066期变成2018065期数据，2018065期那一行的数据变成2018064期的数据，以此类推

sxjpf2119

川贝枇杷 发表于 2018-6-12 10:06
我理解错了，没看懂你的意思，什么叫上翻一行，是类似滑动滚轮么？

感谢。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

川贝枇杷

你这个功能感觉没什么卵用，是不是还得加个复位才行？

1. Sub test()
   
2. Dim str As String
   
3. Dim r As String
   
4. Dim i As Integer
   
5. Dim rng As Range
   
6. For Each rng In Sheets("fenxi").Range("A3:I12")
   
7.     str = rng.Formula
   
8.     For i = 1 To Len(str)
   
9.         If Mid(str, i, 1) Like "[0-9]" Then Exit For
   
10.     Next
    
11.     str = Left(str, i - 1) & Right(str, Len(str) - i + 1) - 1
    
12.     rng.Formula = str
    
13.     rng.NumberFormatLocal = "G/通用格式"
    
14. Next
    
15. Sheets("fenxi").Calculate
    
16. End Sub

复制代码

sxjpf2119

川贝枇杷 发表于 2018-6-12 14:33
你这个功能感觉没什么卵用，是不是还得加个复位才行？

真心感谢，我试试。。。。。感谢。。。。。