Excel VBA PasteSpecial

Set copySheet = Worksheets("Metrics") 
Set pasteSheet = Worksheets("Metrics") 

copySheet.Range("A1:J5").Copy 
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValues 
Application.CutCopyMode = False 
Application.ScreenUpdating = True

Я написал этот кусок VBA кода, и это делает в основном то, что я хочу, чтобы это сделать, но то, что я не могу понять, как применить второй pastespecial получить форматы из скопированного раздела в недавно вставленный раздел. Я попытался добавить второй .PasteSpecial xlPasteFormats в первую пастовую специальную строку, но макрос не удается в этот момент.Excel VBA PasteSpecial

Любые идеи о том, как получить формат для недавно вставленного раздела?

источник

2015-09-30 Shenanigator

Добавьте его за 'xlPasteValues'. Может потребоваться запятая. – findwindow

Это была моя первая мысль, попробовал, и она дает мне ошибку 1004 на этой строке с запятой и без компиляции. – Shenanigator

Сразу после строки кода «PasteSpecial» введите вторую строку кода «PasteSpecial» для xlPasteFormats – tigeravatar

Это не очень ответ, но

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(-4, 0).PasteSpecial xlPasteFormats

Но это в конечном итоге работает. Я установил это прямо под первой строкой pasteSheet.

Теперь я должен вставить месяц года в первую ячейку после вставки ... это будет весело.

источник

2015-09-30 15:21:31 Shenanigator

Excel VBA PasteSpecial

ответ

Смежные вопросы