如何将一列数据中的特定字符数据调整到上一行数据？

abblu

如下，将"C*"开头的数据怎么提取到"0*"开头的数据的后面？

明天会更好zj

这个用公式，辅助列就可以搞定，不一样要代码，上传附件吧！

ykcbf1100

求助要上传附件，难不成还要写代码的人来摸拟附件？

Again123456

1. function test (){
   
2.         let arr = Range("a1").CurrentRegion.Value2
   
3.         let k = 0
   
4.         arr.forEach((v,i) => {
   
5.                 if (v[0][0] == "0"){
   
6.                         k = i
   
7.                 }else if (v[0][0] == "C"){
   
8.                         arr[k][1] = arr[k][1] ? arr[k][1] + "/" + arr[i][0] : arr[i][0]
   
9.                         arr[i][0] = null
   
10.                 }else{
    
11.                         arr[i][0] = "需要的数据"
    
12.                 }
    
13.         })
    
14.         Range("d1").CurrentRegion.ClearContents()
    
15.         Range("d1").Resize(arr.length,2).Value2 = arr
    
16.         ActiveSheet.UsedRange.Columns.AutoFit()
    
17. }

复制代码

t.7z (5.56 KB, 下载次数: 6)

2024-2-20 09:31 上传

点击文件名下载附件

abblu

明天会更好zj 发表于 2024-2-20 09:09
这个用公式，辅助列就可以搞定，不一样要代码，上传附件吧！

谢谢回复，原数据源有很多数据，这个只是就问题简化了形式。

abblu

ykcbf1100 发表于 2024-2-20 09:31
求助要上传附件，难不成还要写代码的人来摸拟附件？

抱歉，第一次发帖，没考虑到这点，我重新上传了电子表格。

fzxba

test.zip (15.4 KB, 下载次数: 13)

2024-2-20 09:49 上传

点击文件名下载附件

x-xx-xx

1-2           

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.20
   
2.     r = Cells(Rows.Count, 5).End(3).Row
   
3.     On Error Resume Next
   
4.     Columns(10).NumberFormatLocal = "@"
   
5.     For i = 2 To r
   
6.         s = Cells(i, "e")
   
7.         If Val(s) Then
   
8.             Cells(i, "j") = CStr(s)
   
9.             r1 = i
   
10.             st = ""
    
11.         Else
    
12.             st = st & "/" & Cells(i, "e")
    
13.         End If
    
14.         Cells(r1, "k") = Mid(st, 2)
    
15.     Next
    
16. End Sub
    

复制代码