急，各位老师，高手们来帮忙，这个宏代码难倒我了

xiao9120

请各位高手来帮忙，彰显各路风采



我想实现的功能是：点击按钮后，把复制的内容，自动粘贴到下一空行
请各位大佬帮忙实现，非常感谢
说明一下→ M2:N11的数据是手动在网页上查询后复制过来的。

Qs18

Range("f4:k4").Value = Range("f3:k3").Value

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.23
   
2.     arr = WorksheetFunction.Transpose([n6:n11])
   
3.     r = Cells(Rows.Count, "f").End(3).Row
   
4.     Cells(r + 1, "f").Resize(1, UBound(arr)) = arr
   
5. End Sub
   

复制代码

木子客

你要复制的内容就是图中的绿框部分的内容吗？把复制的内容写到F4:K14吗？

木子客

Range("F1").End(xlDown).Offset(1, 0).Resize(1, 6) = Application.Transpose(Range("N6:N11").Value)
直接将要写入的目标单元格=转换行列后的N6:F11。如果是查询了网页后的内容，可以从剪贴板读取数据后写到数组，再写入单元格

木子客

Range("F1").End(xlDown).Offset(1, 0).Resize(1, 6) = Application.Transpose(Range("N6:N11").Value)
要写入的目标区域=转换行列后的N6：N11区域内容。
如果你是从网页查询后复制的数据，可以从剪贴板复制数据后读取写到到单元格

ynzsvt

1. Sub YnZsvt()  '//2024.6.23
   
2. Dim Arr, R&, St$, i&
   
3. St = [D3]
   
4. Arr = [F3:K3].Value
   
5. R = Cells(Rows.Count, "D").End(3).Row
   
6. For i = 4 To R
   
7.   If St = Cells(i, "D") Then Exit For
   
8. Next i
   
9. Cells(i, "f").Resize(1, UBound(Arr, 2)) = Arr
   
10. If i > R Then Cells(i, "C").Resize(1, 2) = Array([C3], "'" & [D3])
    
11. End Sub

复制代码

注意第三行改了改。

xiao9120

ykcbf1100 发表于 2024-6-23 20:22
附件供参考。。。

太帅了

xiao9120

ynzsvt 发表于 2024-6-23 21:52
注意第三行改了改。

太棒了，你的代码，请问遇到了缺考的怎么处理