N个单元表指定部分横向合并

app240913

大家好，工作簿有很多很多工作表，需要填充部分的单元格并横向合并



1.将每个工作表第一行C3横向向右填充此行，不是填满（比如A表所有行的数据中横向最远的记录是到J列，那么C3就填充到J3，B表是I那就填充到I3）并进行横向合并

2.填充要求与1一致，但是合并内容变少，横向合并所有工作表1-10行


空值不可忽略 原来怎么样合并就怎么样

ykcbf1100

建议你先上个效果图帮助理解。
为防止浪费时间，先观望一下。

app240913

ykcbf1100 发表于 2024-9-15 16:03
建议你先上个效果图帮助理解。
为防止浪费时间，先观望一下。

你看下图片

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.15
   
2.     Set sh = ThisWorkbook.Sheets("横向合并")
   
3.     sh.Cells.ClearContents
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name Then
   
6.             With sht
   
7.                 n = n + 1
   
8.                 r = .UsedRange.Find("*", , -4163, , 1, 2).Row
   
9.                 c1 = .Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
   
10.                 arr = .[a1].Resize(r, c1)
    
11.                 sh.Cells(1, c + 1).Resize(r, c1) = arr
    
12.                 sh.Cells(1, c + 3).Resize(, c1 - 2) = arr(1, 3)
    
13.                 c = c + c1
    
14.             End With
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码