知识点
相关文章
更多最近更新
更多原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板
2019-03-02 00:58|来源: 网路
原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板
一、主要实现以下功能:
1、用鼠标选择单元格(可谓连续单元格,也可为不连续的)后,按照要求格式“证件号码:+选定内容+“,”+”选定内容“等等进行合并
2、合并后的内容,直接复制到剪切板
二、代码示例:
Sub TestA() Set a = New DataObject '情况存放合并结果的单元格内容 Range("B2") = "" '开始合并选择单元格的内容 For Each C In Selection Range("B2").Value = Range("B2").Value & C.Value & "," Next '将汇总结果复制到剪切板 Range("B2") = "证件号码:" & Range("B2") Range("B2").Select Range("B2") = Left(Range("B2"), Len(Range("B2")) - 1) Range("B2") = Range("B2") & "。" 'Range("B2").Select 'Selection.copy '------------- a.SetText Range("B2") a.PutInClipboard End Sub
三、示例文件及操作视频下载地址:
加入QQ群,在群共享中可下载示例文件及演示视频:
QQ群:303625469
微信:Excel_Cortana
转自:http://www.cnblogs.com/mybi/p/3865554
相关问答
更多-
大学电脑基础课 老师举例说明了剪切板里的内容关机后就没有了 但是回收站里还会有。所以硬盘信息会丢[2022-03-03]
比如你复制一个文件,只要复制成功就在剪贴板里,在硬件内存条(RAM)里存储的关机以后再开机,你想把你关机前复制的文件去黏贴就不能够了。回收站实际是你物理硬盘的一部分,里的文件是在存在你从物理硬盘(ROM)里的,重启计算机当然还会有,除非你关机前清空回收站。 -
如何用Python复制excel内容到剪切板[2022-10-03]
你好, 1,方法一: 打开Excel,点击“编辑”-“Office剪切板”,即可在窗口右侧出现“剪切板”。 2,方法二 Excel中,选中一单元格,连续两次按复制(或剪切)的快捷键“Ctrl+c”(或“Ctrl+x)”亦可调出“剪切板” -
VB.NET怎么复制文件到剪切板,不是复制文件内容![2023-05-04]
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板 CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(&C)" -
批处理剪切板字符串拼接[2022-11-09]
@echo off set add=我是拼接字符串 mshta "javascript:var s=clipboardData.getData('text');if(s)new ActiveXObject ('Scripting.FileSystemObject').GetStandardStream(1).Write(s);close();"|more >cliptemp.txt for /f "delims=" %%a in (cliptemp.txt) do set "line=%add%%%a" m ... -
这应该工作。 假设第1列中的标题。 Dim ws as Worksheet Set ws = Worksheets("Sheet1") 'change as needed With ws .UsedRange.AutoFilter Field:=2, Criteria1:="905263043" Dim rng as Range Set rng = Intersect(.UsedRange,.UsedRange.Offset(1)).SpecialCells(xlCellTy ...
-
你有2个选择。 可以使用.PasteSpecial方法,也可以只引用原始范围并将新范围设置为它的值。 .Range("CU" & rowLoop2).PasteSpecial Paste:=xlPasteAll 使用设置值选项,您必须定义值应填充的整个范围。 Range("A3:E3").Value = Range("A1:E1").Value 如果您刚刚使用了Range("A3").Value = Range("A1:E1").Value仅填充单元格A3 Range("A3").Value = Ran ...
-
如果您知道单元格的表单(例如Sheet1 )和地址(例如A1 ),则可以通过以下方法获取该值: ThisWorkbook.Worksheets("Sheet1").Range("A1").Value 所以你的代码变成: Option Explicit Private Sub CommandButton2_Click() Dim strBaseCmd As String Dim rngParameter As Range Dim strParameter As String ...
-
ActiveCell.formula = "=IF(ISBLANK(C5)*ISBLANK(D5),"""",IF(ISBLANK(D5),(C5),CONCATENATE(C5,"" ["", D5, ""]"")))" 你错过了第一套嵌入式报价的倍增。 ActiveCell.formula = "=IF(ISBLANK(C5)*ISBLANK(D5),"""",IF(ISBLANK(D5),(C5),CONCATENATE(C5,"" ["", D5, ""]"")))" you missed ...
-
这应该工作。 Range("F15").Value = Range("G22") This should work. Range("F15").Value = Range("G22")
-
Range.MergeCells将返回TRUE , FALSE或Null具体取决于范围 如果Range是单个合并范围,则为TRUE ,而不是其他任何内容 如果Range仅包含非合并单元格,则为FALSE Null其他任何内容,即合并范围加上一个或多个其他单元格(合并或其他) 要利用这个考虑 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Target.MergeCells Or IsNull(Target.Mer ...