300个常用宏.xlsVIP

文本框 代码 目录 file_name1 filename [ filename ] filename [ filename 1.00 QQ 临时 回车光标向下 mycell.FormulaR1C1 = mycell.Address Sub 区域录入当前单元地址() 返回当前单元地址 Sub 返回当前单元地址() d = ActiveCell.Address [A1] = d Private Sub CommandButton1_Click() With CommandButton1 Sub 分离A列数据的文本和超链接并会同其他数据整理到指定表() ier = Worksheets(数据库).Range(b60000).End(xlUp).Row For ee = 5 To Range(a60000).End(xlUp).Row For Each hh In Worksheets(临时).Hyperlinks If hh.TextToDisplay = Cells(ee, 1) And Cells(ee, 1) Then www = www , ee www = Right(www, Len(www) - 1) zxc = Split(www, ,) For sd = 0 To UBound(zxc) - 1 将名称1的数据写到名称2 Selection = Selection + × 不可在数字后添加文本 Dim s As Range For Each s In Selection Sub 批量添加文本() s = s 文本内容 .Name = 黑体 .FontStyle = 常规 自动打印多工作表第一页 Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小() Dim Pic As Picture, i i = [A65536].End(xlUp).Row For Each Pic In Sheet1.Pictures If Not Application.Intersect(Pic.TopLeftCell, Range(B1:B i)) Is Nothing Then Pic.Top = Pic.TopLeftCell.Top Pic.Left = Pic.TopLeftCell.Left Pic.Height = Pic.TopLeftCell.Height Pic.Width = Pic.TopLeftCell.Width Sheets(i).Select For v = 1 To 256 zd = Cells(65535, v).End(xlUp).Row If zd x Then x = zd Next v If y + x - st + 1 + sp 65536 Then MsgBox 内容太多，仅合并前 i - 2 个表的内容，请把其它表复制到新工作薄里再用此程序合并！ Else: Rows(st : x).Select Selection.Copy Sheets(1).Select Range(A CStr(y + 1)).Select ActiveSheet.Paste Application.CutCopyMode = False 忘掉复制的内容。 y = y + x - st + 1 + sp x = 0 Selection.EntireRow.Hidden = False Sub 取消隐藏列() Columns(C:F).Select Selection.EntireColumn.Hidden = False Application.CommandBars(Stop Recording).Visible = True 录制宏时调用“停止录制”工具栏 mycell.FormulaR1C1 = [ + ActiveWorkbook.Name + ] + ActiveSheet.Name + ! + mycell.Address Next [a1].ListNames Sub 在A和B列返回当前选区的名称和公式() 在A和B列返回当前选区的名称和公式 弹出打印对话框 Application.Dialogs(xlDialogPrint).Show Sub 弹出打印对话框() 打印 Appli