求助代码

1吧吧

多列单元格

ykcbf1100

弄着玩的吗？感觉这样做没实际意义。

心的启点

要根据什么样的条件达到什么样的结果呢，什么说明都没有叫别人猜啊？

1吧吧

b列C 列D列

1吧吧

根据BCD列  结果在表2

1吧吧

ykcbf1100 发表于 2024-5-20 16:55
弄着玩的吗？感觉这样做没实际意义。

请老师赐教

baofa2

1. Sub test0()
   
2.   Dim ar, br() As String, cr, i As Long, j As Long
   
3.   With Worksheets(1)
   
4.     ar = .Range("B1:D1", .Range("B1:D1").End(xlDown)).Value
   
5.   End With
   
6.   ReDim br(1 To UBound(ar), 0)
   
7.   cr = Array(4, 3, 3)
   
8.   For i = 1 To UBound(ar)
   
9.     For j = LBound(cr) To UBound(cr)
   
10.       br(i, 0) = br(i, 0) & Mid(ar(i, j + 1), cr(j), 1)
    
11.     Next
    
12.   Next
    
13.   With Worksheets(2).Range("B1")
    
14.     .Resize(Rows.Count - .Row).ClearContents
    
15.     .Resize(UBound(br)).Value = br
    
16.   End With
    
17.   Beep
    
18. End Sub
    

复制代码

1吧吧

为什么把Sheet1改sheet31就错误呢？请老师修改

1吧吧

baofa2 发表于 2024-5-21 13:44

老师请查看