excel 中,如何让在A1单元格输入的所有数值从A2开始顺序显示,B1输入则从B2开始顺序显示,C1。。。
例:在A1,分次输入1,2,3,4,,那么在A2显示1,A3显示2,A4显示3,A5显示4.(这个已经找到答案PrivateSubWorksheet_Change(ByV...
例: 在 A1,分次输入 1,2,3,4,,那么在 A2显示1,A3显示2,A4显示3,A5显示4. (这个已经找到答案
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address <> "$A$1" Then Exit Sub
If [A2] = "" Then
[A2] = .Value
Else
[A65536].End(xlUp).Offset(1, 0) = .Value
End If
End With
End Sub
) 现在想在 B1,C1,D1,处分次输入,也有想 A 列 这个效果出来 展开
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address <> "$A$1" Then Exit Sub
If [A2] = "" Then
[A2] = .Value
Else
[A65536].End(xlUp).Offset(1, 0) = .Value
End If
End With
End Sub
) 现在想在 B1,C1,D1,处分次输入,也有想 A 列 这个效果出来 展开
展开全部
在A2输入公式:
=MID(A$1,ROW(A1),1)
向右和向下填充。
=MID(A$1,ROW(A1),1)
向右和向下填充。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这样去修改一下
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row <> "1" Then Exit Sub
If Cells(2, .Column) = "" Then
Cells(2, .Column) = .Value
Else
Cells(65536, .Column).End(xlUp).Offset(1, 0) = .Value
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row <> "1" Then Exit Sub
If Cells(2, .Column) = "" Then
Cells(2, .Column) = .Value
Else
Cells(65536, .Column).End(xlUp).Offset(1, 0) = .Value
End If
End With
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
“如果是a1输入123456
a2显示1,a3显示2……
=mid(a1,row(a1),1)向左拉,向下拉复制”
能顺序显示吗?
我做了几次都没成功。望指点。真诚的希望。
a2显示1,a3显示2……
=mid(a1,row(a1),1)向左拉,向下拉复制”
能顺序显示吗?
我做了几次都没成功。望指点。真诚的希望。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
啥意思
如果是a1输入123456
a2显示1,a3显示2……
=mid(a$1,row(a1),1)向左拉,向下拉复制
如果是a1输入123456
a2显示1,a3显示2……
=mid(a$1,row(a1),1)向左拉,向下拉复制
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询