EXCEL中一列单元格，有的是有数据，有的是空白单元格，如果快速让空白单元变成有数据单元格加序列号？

在EXCEL中，一列数据有数值有空白单元格，怎么去掉空白的单元格，保留有数值的数据，整齐显示？~

选定数据区域，Ctrl+G定位，定位条件：空值。
右击，删除

空格填加上面的内容有可能。
合并单元格，不能，只能手动

选中A2：A10000
Ctrl+G 定位条件----空值 ----- 依次按 = 上方向键 Ctrl+Enter

B2 输入
=if(A2<>A1,A2,A2&(row()-match(lookup("座",A$2:A2),A$2:A2,0)-1))
鼠标移到B2右下角 变实心十字 双击

在B2中输入公式：=IF(A2<>"",A2,IF(RIGHT(B1,1)<"A",B1&"-A",LEFT(B1,FIND("-",B1))&CHAR(CODE(RIGHT(B1,1))+1)))
然后下拉公式（或复制公式到B2以下的全列）就可以了。
如果，还要放在A列就复制B列，选择性粘贴（数值）到A列。

不过用字母如果超过26个空会使用Z以后的字符，也可以用数字，这不受26个字母的限制，如下：
=IF(A2<>"",A2,IF(RIGHT(B1,1)<"0",B1&"-1",LEFT(B1,FIND("-",B1))&(RIGHT(B1,LEN(B1)-FIND("-",B1)))+1))

把LARRYLAIN的程序改进一下，就是字母
ALT+F11——F7——粘贴如下代码（注意换行）——F5运行。

Sub test()
Dim x, n As Long
Dim str As String
For x = 2 To Sheets(1).UsedRange.Rows.Count
If Sheets(1).Cells(x, 1) <> "" Then
str = Sheets(1).Cells(x, 1)
n = 1
Else
Sheets(1).Cells(x, 1) = str & "-" & Chr(64 + n)
n = n + 1
End If
Next x
End Sub

只要在单元格B2输入公式：
=IF(A2=0,LEFT(B1,FIND("-",B1))&(VALUE(TRIM(MID(B1,FIND("-",B1)+1,4)))+1),A2&"-1")

下拉复制就能实现你的功能

sub test()
dim x,n as long
dim str as string
for x=2 to sheets(1).usedrange.rows.count
if sheets(1).cells(x,1)<>"" then
str=sheets(1).cells(x,1)
n=1
else
sheets(1).cells(x,1)=str & "-" & n
n=n+1
end if
next x
end sub

---

EXCEL中一列单元格，有的是有数据，有的是空白单元格，如果快速让空白单元变成有数据单元格加序列号？视频