excel - 无法仅粘贴值
问题描述
我不能只粘贴值。
我的代码:
Private Sub CommandButton5_Click()
'Komanda rinkti duomenis
a = Worksheets("Lapas1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("lapas1").Cells(i, 3).Value = Range("K5") Then
Worksheets("lapas1").Rows(i).Copy
Worksheets("Sàskaita-Faktûra").Activate
b = Worksheets("Sàskaita-Faktûra").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Sàskaita-Faktûra").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("lapas1").Activate
End If
Next
Application.CutCopyMode = False
Worksheets("Sàskaita-Faktûra").Activate
Range("K5").Activate
End Sub
已经尝试过:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
解决方案
试试这个:
Private Sub CommandButton5_Click()
Dim shtSrc as worksheet, shtDest as worksheet, i as long
Set shtSrc = Worksheets("Lapas1")
Set shtDest = Worksheets("Sàskaita-Faktûra")
'Komanda rinkti duomenis
For i = 2 To shtSrc.Cells(Rows.Count, 1).End(xlUp).Row
If shtSrc.Cells(i, 3).Value = shtDest.Range("K5").Value Then 'K5 sheet?
shtDest.Cells(rows.count, 1).end(xlup).offset(1, 0).Entirerow.value = _
shtSrc.rows(i).value
End If
Next
shtDest.Activate
shtDest.Range("K5").Activate
End Sub
推荐阅读
- excel - 如何从最后一个空行进行 Vlookup 并自动填充到其他非空列的末尾
- javascript - 插入随机时间
- html - 移动设备上错误/不同的背景图像大小
- python - 为什么 cross_val_score 返回所有 NaN?
- python - 从 icalendar 事件中提取日期
- redux - 如何在另一个 Redux 应用程序中包含 React-Admin
- r - 在 R Highcharter Map 中同时使用 hc_motion 和 hc_drilldown
- node.js - Docker 构建中的“ENOENT:没有这样的文件或目录”错误
- php - 错误:php artisan db:seed Illuminate\Database\QueryException SQLSTATE[HY000]:一般错误:1364 字段“数量”没有默认值
- python - 无法从下拉菜单中单击的元素