黄吕娜心理咨询师

在EXCEL中是无法直接这样设置的，如果你要达到这种效果，只能用合并单元格的方法（对应多个格子，比较宽的单元格用多个单元格合并）。如果是不用计算的表格，建议用WORD（或WPS文字）插入表格，WORD中调整单元格大小比较简单，选中单元个单元格就可以单独调整这个单元格的宽度。

输入一行会触发：Change事件可以在这个该事件中写入代码就可以了。（北京 黄吕娜） ...把上面的复制下来呀 ...复制a列—b列插入复制单元格 ...按选性...

右击上面的字母，下拉菜单里有列宽，右击左面的数字，下拉菜单里有行高，点击一下可以输入想要的数字。

我要是你 就先复制上一行 然后 再 右键使用 插入复制的单元格……

如果文字与数字之间都有且只有一个空格就好办：=SUM(MIDB(B1:B3,{9;5;5}+1,LENB(B1:B3)-FINDB(" ",B1:B3)-2)/1)将B1:B3换成你实际的求和区间。是一个数组公式，输入完后Ctrl+Shift+Enter 确定（黄吕娜）

如果文字与数字之间都有且只有一个空格就好办：=SUM(MIDB(B1:B3,{9;5;5}+1,LENB(B1:B3)-FINDB("",B1:B3)-2)/1)将B1:B3换成你实际的求和区间。是一个数组公式，输入完后Ctrl+Shift+Enter确定（黄吕娜）

输入一行会触发：Change事件可以在这个该事件中写入代码就可以了。（北京 黄吕娜）追问：能帮助我写个完整的代码吗?追答：Private Sub Worksheet_Change(ByVal Target As Range) a = () b = () If a <> 1 Then If Cells(a, b) = "" And Cells(a - 1, b) <> "" Then Rows(a - 1 & ":" & a - 1).Copy Cells(a, b).Select c = Cells(a, b) = False = c Cells(a, b).Select End If End IfEnd Sub追问：您好！我运行代码发现，连同上一行的数据也复制了，我想只复制公式即可，不用复制没有公式的数据，应该如何修改代码?非常感谢您！追答：用下面的代码吧，我重写过了！Private Sub Worksheet_Change(ByVal Target As Range) a = () b = () = False If a <> 1 Then If Cells(a, b) = "" And Cells(a - 1, b) <> "" Then For x = 1 To 256 If Cells(a - 1, x).HasFormula = True Then Cells(a - 1, x).Copy Cells(a, x).Select = False End If Next x Cells(a, b).Select End If End If = TrueEnd Sub

应该是文字在一列，数字在一列吧。这样直接就可以算出总价了