cfnr.net
当前位置:首页 >> vBA 张表上 >>

vBA 张表上

用VBA当然可以实现这个想法,详见附表: 对应代码如下 Sub 按钮1_单击()Sheets("月报").Select '显示汇总的表格n = Rang...

以下为代码及注释: Sub main() k=1 For Each s In ThisWorkbook.Worksheets'遍历所有工作表 With s If .Name "汇总表" Then '如果工作表名字不是“汇总表” k = k + 1‘k进行累加 For i=1 to 10 '循环拷贝 Sheets("汇总表").Cells(k, i) =s.Cells(...

Sub ceshi() Dim sht as worksheet with sheets("数据汇总") n=1 for each sht in worksheets if sht.name "数据汇总" then sht.range("L4:Q28").copy .range("A" & n) n=n+25 End if Next End With End Sub

合并之前,请先创建一个空白的 Sheet 作为合并目标 Sheet ,这个 Sheet 必须是第一个 Sheet 哦。 如果不合并标题行(比如第一行)则 j=1 改为 j=2 如果数据不是从第一行,或者第一列开始的,请修改 j=1 及 k=2 两行的参数。 比如 j=2 k=3 表示从...

Public Sub AutoCopy() Dim MyPath As String Dim MyName As String Dim AllName() As String Dim MyWB As Workbook i = 0 Application.ScreenUpdating = False MyPath = "C:\Users\Public\Documents\microsoft\test" ActiveSheet.Range("A1") =...

精简一点: Dim i As Integer i = 2 Range(Cells(1, 1), Cells(2, i)).Copy Sheets(2).Range("a1") 如果要打开Sheets(2)工作表,在最后加上语句:Sheets(2).Activate 用以下语句也可以: Range("a1").Resize(2, i).Copy Sheets(2).Range("a1") ...

这要看你要用来做什么了 选中 所有的单元格 还是 只选中有数据的? 选中整张表是: Cells.Select 如果只选中 有数据的区域的 话 要看你的数据结构情况以及你想怎么选了……

Sub 复制A1()Dim n As ByteDo while n

Sub aa() iend = Cells(Rows.Count, 1).End(3).Row ipath = ThisWorkbook.Path & "\" For i = 2 To iend workbooks.open ipath & "\" & Range("A" & i) & ".xlsx" isht=activeworkbook.sheets(1).name Range("B" & i) = "='" & ipath & "[" & Ra...

Sub AA() Dim a As Integer Dim b As Integer a = 20 For Each sh In Worksheets Sheets("sheet1").Cells(a, 5).Value = sh.Index Sheets("sheet1").Cells(a, 6).Value = sh.Name a = a + 1 Next End Sub

网站首页 | 网站地图
All rights reserved Powered by www.cfnr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com