Question

求大神解答一个Excel问题

怎么样让excel中所有单元格中有y值的单元格数值除以4并覆盖

Answer 1

你好用公式也可以解决

图中公式=IF(F7<>"",IF(ISNUMBER(FIND("Y",F7)),"Y"&(--SUBSTITUTE(F7,"Y","")/4),F7),"")

你根据自己数据单元格，改动一下即可

Answer 2

左边第1位是 Y的单元格数据，除以4，然后覆盖原数据？
比如Y4,最后结果就是Y1?其他类推
这个要vba

追问

对对对，就是这样，大神能帮忙写个vba吗？学渣一枚啊

追答

Sub 除以4()
Dim i, k
For i = 1 To 25 '1到25行
For k = 1 To 4 'A:D列
X = Left(Cells(i, k), 1)
y = Len(Cells(i, k))
If X = "K" Then
n = Right(Cells(i, k), y - 1)
Cells(i, k) = "K" & n / 4
End If
Next
Next
End Sub

追问

运行后没有任何改变啊

追答

写错了，是 Y ，不是K
注意是 大写的 Y
Sub 除以4()
Dim i, k
For i = 1 To 25 '1到25行
For k = 1 To 4 'A:D列
X = Left(Cells(i, k), 1)
y = Len(Cells(i, k))
If X = "Y" Then
n = Right(Cells(i, k), y - 1)
Cells(i, k) = "Y" & n / 4
End If
Next
Next
End Sub

追问

bug再次出现了，还要在麻烦你一次。我都替bug脸红，我给你发私信了，加微信给你发个红包吧。再次感谢大神付出的努力。

追答

没看到私信
邮箱
mrpinetree@qq.com
看看还有什么问题

Answer 3

数据库系统设置