ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: foundking

[求助] 有没办法真真正正地让数字自动加上前缀?

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-4-11 16:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
foundking 发表于 2012-4-11 12:47
是啊,已经发现了。我把第一列的数据复制到别的列,就失效了。

不能复制到别的列,应该先复制到记事本,然后再粘贴回Excel。

TA的精华主题

TA的得分主题

发表于 2012-4-11 16:14 | 显示全部楼层
香川群子 发表于 2012-4-11 15:52
看一下我做的VBA应用实例吧。

不懂VBA的人也可以用。

QQ截图20120411161101.jpg
我用的是2010版,应该和2007的是一样的,但不知道2003的是什么样子。
左侧为剪贴板,粘贴内容旁边有下拉选项:粘贴,删除,保持复制后选区不变,选粘贴就可以了。

TA的精华主题

TA的得分主题

发表于 2012-4-11 16:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
swl4561255 发表于 2012-4-11 15:17
可以吧,我一直是这样用的木有问题的,只是粘贴时要用粘贴板上数据旁边的下拉菜单中的粘贴选项,而不是直 ...

你可能装了微软的多重粘贴功能扩展了,很多人用的是绿色精简版的Office,不带这个模块。

TA的精华主题

TA的得分主题

发表于 2012-4-11 16:27 | 显示全部楼层
2003版粘贴板,木有装任何扩展功能
我也该考虑加个头像了...
1.gif

TA的精华主题

TA的得分主题

发表于 2012-4-11 16:39 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-4-11 16:42 | 显示全部楼层
本帖最后由 香川群子 于 2012-4-11 16:46 编辑

明白了。在2003中可以:

选定区域内:
1. 设置带前缀的自定义格式:【例如:"K"0】
2. 输入数字,自动显示带前缀,但单元格内容不带前缀。【例如:显示K1,但实际单元格仍=1】
3. 选择要复制粘贴的区域
4. 连续按两次复制快捷键ctrl+c → 自动打开粘贴板
5. 在原区域,或新的区域内,从粘贴板中选择相关项目进行粘贴
6. 从菜单栏上点选选择性粘贴菜单,从中选择粘贴text属性,即可最终得到已经带前缀的文本。


………………
不过,与其这样麻烦,真的还不如辅助列内输入公式,="K"&A1
然后就可以直接复制粘贴为数值了。这样更方便快捷吧。

TA的精华主题

TA的得分主题

发表于 2012-4-11 17:17 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
在单元格设置里   自定义格式   ”K“0就可以了

TA的精华主题

TA的得分主题

发表于 2012-4-11 17:40 | 显示全部楼层
daveman 发表于 2012-4-11 09:03
没天理啊,人家头像上放个,就这么多跟帖。。。。。

赶紧整个版头像   

TA的精华主题

TA的得分主题

发表于 2012-4-11 19:01 | 显示全部楼层
在VBE的界面下输入以下代码
然后在弹出的VBE界面将以下代码拷贝进去。


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

       Dim i As Integer

      For i = 1 To 500

        If Cells(i, 1).Value <> "" And Not Cells(i, 1).Value Like "*" & "K" & "*" Then

         Cells(i, 1).Value = "PC" & Cells(i, 1).Value

      End If

        Next i

    End Sub

直接关闭,就行了

TA的精华主题

TA的得分主题

发表于 2012-4-11 20:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
楼主的表达能力够差 理解能力够呛
如果头像是楼主本人 还真是应了一句话:
聪明面孔笨肚肠

对不起 话糙了点 可实在是 这帖太磨叽了。。。。。

本人最后一次在此帖回复

PS:楼主在本帖最后一次出现时2012-4-11 12:47
目前已经失踪7小时又6分钟了 各位 该干啥干啥去了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-16 03:55 , Processed in 0.029240 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表