求教在excel里， BEHKN列随机输入三位数，在右列即自动算出三位数和值，如123，右列自动算出6.

发布网友 发布时间：2022-04-23 05:56

我来回答

共5个回答

热心网友 时间：2023-10-17 16:52

用公式：在右列输入
BEHKN列在A列
=LEFT(A1,1)+MID(A1,2,1)+RIGHT(A1,1)
然后下拉
用代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then ' 假设BEHKN列在A列
Application.EnableEvents = False
Target.Offset(0, 1) = CInt(Left(Target, 1)) + CInt(Mid(Target, 2, 1)) + CInt(Right(Target, 1))
Application.EnableEvents = True
End If
End Sub追问操作上能说具体点吗

追答加HI 聊

热心网友 时间：2023-10-17 16:52

你是说你在B列输入，就在C出和值，在E输入就在F出合值？依此类推？
那，你按下ctrl键，再用鼠标依此点C1 F1 I1 L1 O1单元格
点完后，低头用键盘输入
=IF(N1="","",SUMPRODUCT(--MID(N1,ROW($1:$3),1)))
按下ctrl+回车。
这样第一行的单元格实现了你的要求。如果很多行都需要这样，
将公式下拉填充即可。新手，那下拉填充总应该会吧？

热心网友 时间：2023-10-17 16:53

在右列输入
BEHKN列在A列
=LEFT(A1,1)+MID(A1,2,1)+RIGHT(A1,1)
然后下拉
用代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then ' 假设BEHKN列在A列
Application.EnableEvents = False
Target.Offset(0, 1) = CInt(Left(Target, 1)) + CInt(Mid(Target, 2, 1)) + CInt(Right(Target, 1))
Application.EnableEvents = True
End If
End Sub
或者·SUMPRODUCT(--(0&MID(B1,{1,2,3},1)))

热心网友 时间：2023-10-17 16:54

B1单元格录入
=IF(MOD(COLUMN(),3)=2,INT(RAND()*9 )+1&MID(RAND(),3,2),IF(MOD(COLUMN(),3)=0,SUMPRODUCT(--(0&MID(A1,{1,2,3},1)))," "))
向右填充至o列或任意列，再向下填充任意列...追问操作没成功，是自动输入吗？

热心网友 时间：2023-10-17 16:54

是不是这样
=SUMPRODUCT(--(0&MID(B1,{1,2,3},1)))