VBA复制区域数据

最新推荐文章于 2024-07-15 21:31:41 发布

ribut9225

最新推荐文章于 2024-07-15 21:31:41 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： excel

本文链接：https://blog.csdn.net/ribut9225/article/details/134074278

VBA 专栏收录该内容

13 篇文章

订阅专栏

Sheets(nSheet).UsedRange.Copy '复制到剪贴板

Sheets(1).Range("B" & nStartRow).PasteSpecial '粘贴

Sub aa()
'
' aa Macro
'
   Dim nStartRow
   Dim nRowCount
   Dim strDwmc
   Dim nSheet, nSheetCount
   
   
   nStartRow = 118  '从118行开始
   
   nSheetCount = Sheets.Count
   
   For nSheet = 2 To nSheetCount
   
        nRowCount = Sheets(nSheet).UsedRange.Rows.Count
        strDwmc = Sheets(nSheet).Name
        
        Sheets(nSheet).UsedRange.Copy  '复制到剪贴板
        
        Sheets(1).Range("B" & nStartRow).PasteSpecial  '粘贴
        
        '填写单位名称
        For nRow = 1 To nRowCount
            Sheets(1).Cells(nStartRow + nRow - 1, 4).Value = strDwmc
            
        Next
        
            
      nStartRow = nStartRow + nRowCount + 3 '下一家单位的起始行
        
   Next
   
  
End Sub