删除某一行的空白单元格，有内容的单元格向左移动的公式

老唐在线

删除某一行的空白单元格，有内容的单元格向左移动的公式

沈默00

上附件，模拟结果，，，
按你说的，貌似要VBA

老唐在线

详见附件一，感谢

niko88819

1. Sub niko()
   
2.     Dim ws As Worksheet
   
3.     Dim rng As Range
   
4.     Dim cell As Range
   
5.     Dim data As Collection
   
6.     Dim i As Integer
   
7.     Set ws = ThisWorkbook.Sheets("Sheet1")
   
8.     Set rng = ws.Range("A1:BG1")
   
9.     Set data = New Collection
   
10.     For Each cell In rng
    
11.         If Trim(cell.Value) <> "" Then
    
12.             data.Add cell.Value
    
13.         End If
    
14.     Next cell
    
15.     ws.Range("A4:BG4").ClearContents
    
16.     For i = 1 To data.Count
    
17.         ws.Cells(4, i).Value = data(i)
    
18.     Next i
    
19. End Sub

复制代码

沈默00

WPS函数
=TOROW(1:1,3)

老唐在线

niko88819 发表于 2025-3-16 12:57

非常感谢！

mjm04

WPS 或 高版本EXCEL可以用

=TOROW(A1:BG1,3)

PZB0000

=TOROW(A1:BG1,3)

wp231957

来个低版的
=INDEX($A$1:$BG$1,SMALL(IF($A$1:$BG$1>0,COLUMN($A$1:$BG$1)-COLUMN($A$1)+1,""),COLUMN(A1)))
右拉，直到出错为止，也可以外面套一个iferror