.PasteSpecial Paste: = xlPasteValues ​​не работает - PullRequest
Новая
       55

.PasteSpecial Paste: = xlPasteValues ​​не работает

0 голосов
/ 21 июня 2020

ThisWorkbook.Sheets («XYZ»). Активировать

ThisWorkbook.Sheets («XYZ»). Выберите

lastrow = ThisWorkbook.Sheets («SHEET1»). Cells (Rows. Count, 2) .End (xlUp) .Row

ThisWorkbook.Sheets ("SHEET1"). Range ("A" & lastrow + 1) .Value = Time

ThisWorkbook.Sheets ( "XYZ"). Диапазон ("P12: W12"). Скопируйте ThisWorkbook.Worksheets ("SHEET1"). Range ("B" & lastrow + 1) .PasteSpecial Paste: = xlPasteValues ​​

ThisWorkbook.Sheets ( "XYZ"). Диапазон ("P17: W17"). Скопируйте ThisWorkbook.Worksheets ("SHEET1"). Range ("K" & lastrow + 1) .PasteSpecial Paste: = xlPasteValues ​​

ThisWorkbook.Activate

листов ("ЛИСТ1"). Выберите

...