请教一个问题！

15984776478 · 发表于 2021-5-28 14:57

本帖最后由 15984776478 于 2021-5-28 15:08 编辑

请教：如何在sheet1单元格A1中输入不同的数据，在sheet2中自动分行显示。且sheet1中的数据可清除，但sheet2中的分行显示数据仍保留。
谢谢！

lingshimizi · 发表于 2021-5-28 15:00

没有看懂什么意思

cjyjimmy · 发表于 2021-5-28 15:24

只能用VBA实现，公式会随着变量变化而变化

A1233515 · 发表于 2021-5-28 17:30

vba可以实现

lingshimizi · 发表于 2021-5-28 18:02

来看看如何

Sub Main()
Dim Dic As Object, Krr, Trr
Dim Arr
Dim i As Integer, MaxRow1 As Integer, MaxRow2 As Integer
Set Dic = CreateObject("Scripting.Dictionary")
MaxRow1 = Sheets("sheet1").Cells(1048576, 1).End(xlUp).Row
MaxRow2 = Sheets("sheet2").Cells(1048576, 1).End(xlUp).Row
If Sheets("sheet1").Cells(1, 1).Value = "" Then Exit Sub
ReDim Arr(1 To MaxRow1)
If Sheets("sheet2").Cells(1, 1).Value <> "" Then
For i = 1 To MaxRow2
Dic(Sheets("sheet2").Cells(i, 1).Value) = Sheets("sheet2").Cells(i, 2).Value
Next
End If
For i = 1 To MaxRow1
Dic(Sheets("sheet1").Cells(i, 1).Value) = Dic(Sheets("sheet1").Cells(i, 1).Value) + 1
Next
Krr = Dic.keys
Trr = Dic.items
For i = 0 To Dic.Count - 1
Sheets("sheet2").Cells(i + 1, 1) = Krr(i)
Sheets("sheet2").Cells(i + 1, 2) = Trr(i)
Next
End Sub

复制代码

15984776478 · 发表于 2021-6-4 20:51

lingshimizi 发表于 2021-5-28 18:02
来看看如何

这个如何使用？

lingshimizi · 发表于 2021-6-5 09:15

15984776478 发表于 2021-6-4 20:51
这个如何使用？

先这样，再这样，最后这样，懂了吗

lele6809 · 发表于 2021-6-7 17:54

15984776478 发表于 2021-6-4 20:51
这个如何使用？

这是个典型的VBA模块过程，在VBE里，右键插入模块，拷贝代码进去，运行

njzz00421 · 发表于 2021-6-8 10:27

lingshimizi 发表于 2021-5-28 18:02
来看看如何

放在单元格改变事件里应该比你现在这个合适；
cells（1048576,1）容易引起下标越界，题主没说明他excel是什么版本的，若是xls，你这个就直接报错了；
题主没说输入的不可以是重复的，你用数组就可以了，没必要用字典，适得其反；

lingshimizi · 发表于 2021-6-8 10:48

njzz00421 发表于 2021-6-8 10:27
放在单元格改变事件里应该比你现在这个合适；
cells（1048576,1）容易引起下标越界，题主没说明他excel ...

很严谨，下次应该先问楼主是什么系统的多少位的电脑，什么版本的多少位的Excel，nice

		自动登录	找回密码
密码			免费注册

[求助] 请教一个问题！