如果C列不为空则整行数据复制（有关速度问题)

于箱长

于箱长 发表于 2024-8-12 17:10

于箱长

sunya_0529 发表于 2024-8-12 16:53
WPS里的JSA练习一下，大量的操作单元格（复制粘贴），效率很低的，改用数组操作——

JS这么猛？

神秘风暴

于箱长 发表于 2024-8-12 16:54
读了好几遍需求，原来楼主是要只要是C不为空就插入一行啊，并复制不为空这一行的数据，并把时间除以2，对不 ...

为了方便比对，最好就放在原始数据行的下面，当然放在表的最后也行。

于箱长

神秘风暴 发表于 2024-8-12 18:36
为了方便比对，最好就放在原始数据行的下面，当然放在表的最后也行。

嗯，上面提供的就是直接插入的，我发上去后，仔细学习了一下“quqiyuan”老师的代码，发现主体部分和老师的思路差不多，楼主直接用“quqiyuan”老师的就好

ykcbf1100

凑个热闹吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.12
   
2.     Application.ScreenUpdating = False
   
3.     Dim tm: tm = Timer
   
4.     With Sheets("台账")
   
5.         r = .Cells(Rows.Count, 2).End(3).Row
   
6.         arr = .[a1].Resize(r, 12)
   
7.     End With
   
8.     ReDim brr(1 To 10000, 1 To 12)
   
9.     For i = 2 To UBound(arr)
   
10.         If arr(i, 3) <> Empty Then
    
11.             num = arr(i, 12) / 2
    
12.             m = m + 2
    
13.             For j = 1 To UBound(arr, 2) - 1
    
14.                 brr(m - 1, j) = arr(i, j)
    
15.                 brr(m, j) = arr(i, j)
    
16.             Next
    
17.             brr(m - 1, 12) = num
    
18.             brr(m, 12) = num
    
19.         End If
    
20.     Next
    
21.     With Sheets("结果")
    
22.         .UsedRange.Offset(1).ClearContents
    
23.         .[a2].Resize(m, 12) = brr
    
24.     End With
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
27. End Sub
    
28. 
    

复制代码

于箱长

sunya_0529 发表于 2024-8-12 16:53
WPS里的JSA练习一下，大量的操作单元格（复制粘贴），效率很低的，改用数组操作——

厉害，厉害，我先可一个VBA整，抽时间研究学习大神的JS思路和语法

神秘风暴

ykcbf1100 发表于 2024-8-12 18:53
凑个热闹吧。

老师，感觉你的这 个程序运行下来不符合要求，想要的结果是：如果姓名B不为空，则时间/2（意思是因为两个人干这个活，所以需要把原始数据的时间/2），然后需要把姓名B，不为空的这一行放到原始行下面，把姓名B里的名字变到姓名A里。哎呀，我的表达能力是在是太差劲的，虽然我看不懂，但是“quqiyuan”老师的代码代码是我想要的结果。

神秘风暴

sunya_0529 发表于 2024-8-12 16:53
WPS里的JSA练习一下，大量的操作单元格（复制粘贴），效率很低的，改用数组操作——

老师好，JSA偶都没听过，VBA还只是小白。但看老师上传的图片应该是我想要的结果，但是下载的附件中没看到JSA代码。

于箱长

神秘风暴 发表于 2024-8-12 19:14
老师好，JSA偶都没听过，VBA还只是小白。但看老师上传的图片应该是我想要的结果，但是下载的附件中没看到 ...

需要用wps（不是所有的版本都支持）打开，开发工具->切换到JS环境