[已解决]求教高手,大虾，需将表内表一加粗的内容自动填充到表格二中

2994703679

求教高手,大虾，需将表内表一加粗的内容自动填充到表格二中！
非常感谢各位高手，各位大虾，节日快乐哟！

最佳答案

月排行榜 / 总排行榜

youfang

2014-5-31 12:51

1. Sub 填充()
   
2. Dim rg As Range
   
3. Dim k
   
4. For Each rg In [a1:a14]
   
5. If rg.Font.Bold = True Then
   
6. rg.EntireRow.Copy Sheets("表二").Rows(k + 1)
   
7. k = k + 1
   
8. End If
   
9. Next
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

youfang

1. Sub 填充()
   
2. Dim rg As Range
   
3. Dim k
   
4. For Each rg In [a1:a14]
   
5. If rg.Font.Bold = True Then
   
6. rg.EntireRow.Copy Sheets("表二").Rows(k + 1)
   
7. k = k + 1
   
8. End If
   
9. Next
   
10. End Sub
    

复制代码

开心妙妙

用技巧，查找-从单元格选取格式--复制--粘贴

2994703679

youfang 发表于 2014-5-31 12:51

非常感谢，这个代码怎么操作呢？

youfang

2994703679 发表于 2014-5-31 13:03
非常感谢，这个代码怎么操作呢？

需将表内表一加粗选中内容自动填充到表格二中.rar (9.06 KB, 下载次数: 6)

2014-5-31 13:09 上传

点击文件名下载附件

表一，D1单元格那里有个按钮，你单击一下就行了

2994703679

youfang 发表于 2014-5-31 13:10
表一，D1单元格那里有个按钮，你单击一下就行了

非常感谢，如果要把这个宏运用于其他表格当中，应该怎么操作呢？