gpt4 book ai didi

excel - 根据单元格值合并多列中的单元格

转载 作者:行者123 更新时间:2023-12-03 01:31:28 24 4
gpt4 key购买 nike

我想根据特定列中的信息自动合并多列的单元格。

根据初始图像,堆栈值将确定编号。要合并颜色、堆栈和大小列的行数,如结果屏幕截图所示。

我在下面找到了这段代码,但我不知道如何使其适应我的要求。 (我是代码新手,正在学习)

Dim srw As Long, frw As Variant
With Worksheets("Sheet1")
With Intersect(.Columns(3), .UsedRange)
srw = 0
Do While srw < .Rows.Count
frw = .Cells(srw + 1, 1).Value
If Not IsError(frw) Then
.Cells(srw + 1, 1).Resize(frw, 1).Offset(0, -1).Merge
srw = srw + frw
Else
srw = .Cells(Rows.Count, 1).End(xlUp).Row
End If
Loop
End With
End With

首字母:
Initial

结果:
Outcome

最佳答案

试试这个代码

Sub Test()
Dim x, r As Long, c As Long

Application.ScreenUpdating = False
With Worksheets("Sheet1")
For r = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
x = .Cells(r, 3).Value
If IsNumeric(x) And x > 1 Then
For c = 2 To 4
.Cells(r, c).Resize(x).Merge
Next c
End If
Next r
End With
Application.ScreenUpdating = True
End Sub

关于excel - 根据单元格值合并多列中的单元格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52962343/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com