时间戳

首页 > 解决方案 > VBA-将特定单元格复制到新添加的数据

vba - VBA-将特定单元格复制到新添加的数据

问题描述

这是我用来将数据添加到特定列的代码。我希望能够遍历工作表中的一个范围，并将 (A1:C1) 范围的整个边框样式复制到新添加的数据中。

Private Sub Add_Click()


Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim n As Long



n = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A" & n + 1).Value = Me.Id.Value
sh.Range("B" & n + 1).Value = Me.Title.Value
sh.Range("C" & n + 1).Value = Me.Sev.Value

标签： vbaexcel

解决方案

你可以复制范围

sh.Range("A1:C1").Copy

和粘贴格式

sh.Range("A" & n+1 & ":C" & n+1).PasteSpecial Paste:=xlPasteFormats

推荐阅读