如何使A列中的所有整数都减1而所有小数保持原值不变。

zl1975

如何使A列中的所有整数都减1而所有小数保持原值不变.rar (1.63 KB, 下载次数: 4)

2014-6-26 10:53 上传

点击文件名下载附件

李兴德

=A1-(INT(A1)=A1)

℡Soul

1. =IF(ROUND(A1,0)=A1,A1,A1-1)

复制代码

或者

1. =IF(ISNUMBER(FIND(".",A1)),A1-1,A1)

复制代码

℡Soul

1. Sub test()
   
2. Dim i As Integer
   
3. For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.     If Round(Cells(i, 1), 0) = Cells(i, 1) Then
   
5.         Cells(i, 1).Offset(0, 1) = Cells(i, 1)-1
   
6.     Else
   
7.         Cells(i, 1).Offset(, 1) = Cells(i, 1)
   
8.     End If
   
9. Next
   
10. End Sub

复制代码

稍微换一下就好了

zl1975

℡Soul 发表于 2014-6-26 11:04
VBA

多谢您的解答，不过我说的是整数减1，小数不变，能重给我发一段代码吗？多多感谢！

℡Soul

1. Sub test()
   
2. Dim i As Integer, j As Integer
   
3. Dim arr As Variant, brr As Variant
   
4. i = Cells(Rows.Count, 1).End(3).Row
   
5. ReDim brr(1 To i, 1 To 1)
   
6. arr = Range("a1:a" & i)
   
7.     For j = LBound(arr) To UBound(arr)
   
8.         If Round(arr(j, 1), 0) <> arr(j, 1) Then
   
9.             arr(j, 1) = arr(j, 1) - 1
   
10.         Else
    
11.             arr(j, 1) = arr(j, 1)
    
12.         End If
    
13.         brr(j, 1) = arr(j, 1)
    
14.     Next
    
15. [b1].Resize(j - 1) = brr
    
16. End Sub
    

复制代码

这个 是数组
数据量大可能效率高一点

℡Soul

反了 是吧 我汗

zl1975

zl1975 发表于 2014-6-26 11:15
多谢您的解答，不过我说的是整数减1，小数不变，能重给我发一段代码吗？多多感谢！

我又看了你发的代码，改动了2处，问题解决了，不用重发了，非常感谢！

℡Soul

1. Sub test()
   
2. Dim i As Integer
   
3. For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.     If Round(Cells(i, 1), 0) = Cells(i, 1) Then
   
5.         Cells(i, 1).Offset(0, 1) = Cells(i, 1)
   
6.     Else
   
7.         Cells(i, 1).Offset(, 1) = Cells(i, 1) - 1
   
8.     End If
   
9. Next
   
10. End Sub
    

复制代码

VBA