设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel VBA程序开发 › (已解决)判断数字和字母,插入空行,感觉很复杂,不知怎么 ...
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理，一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
返回列表 发新帖
查看: 877|回复: 8

[求助] (已解决)判断数字和字母,插入空行,感觉很复杂,不知怎么表达,(谢谢lsdongjh和总版主)

[复制链接]
蔡训博

TA的精华主题

TA的得分主题
发表于 2018-7-20 03:11 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
本帖最后由 蔡训博 于 2018-7-23 01:51 编辑

判断数字和字母，插入空行，感觉很复杂，不知道怎么表达，要求都在附件里，VBA做，大家帮帮忙
00004.png

00004.rar (9.6 KB, 下载次数: 3)
已解决, 解决, 判断, 数字, 数字和
回复

举报

山菊花

TA的精华主题

TA的得分主题
发表于 2018-7-20 08:12 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
只作简单判断，供参考。

蔡训博_00004.rar

17.75 KB, 下载次数: 5
回复

举报

lsdongjh

TA的精华主题

TA的得分主题
发表于 2018-7-20 10:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
  1. Sub Test()
  2.     Dim shSource As Worksheet
  3.     Dim lngRows As Long, lngRowID As Long, lngR As Long
  4.     Dim arr As Variant
  5.     Dim strTemp As String, strSplit() As String
  6.     Dim strResult As String
  7.    
  8.     Set shSource = Sheets("Sheet2")
  9.    
  10.     lngRows = shSource.Range("C" & Rows.Count).End(xlUp).Row
  11.     If lngRows < 2 Then lngRows = 2
  12.    
  13.     arr = shSource.Range("A1:C" & lngRows)
  14.    
  15.     For lngRowID = UBound(arr) To LBound(arr) Step -1
  16.         strTemp = arr(lngRowID, 3)
  17.         strSplit = Split(strTemp, "*")
  18.         strResult = ""
  19.         
  20.         If UBound(strSplit) > 0 Then
  21.             For lngR = 1 To UBound(strSplit)
  22.                 If IsNumeric(strSplit(lngR)) Then
  23.                     strResult = strResult & "---" & "第" & Val(strSplit(lngR)) & "件"
  24.                 Else
  25.                     strResult = strResult & "---" & "第" & Asc(strSplit(lngR)) - 64 & "面"
  26.                 End If
  27.             Next
  28.             strResult = Mid(strResult, 4)
  29.             
  30.             shSource.Rows(lngRowID).Insert Shift:=xlDown
  31.             shSource.Range("A" & lngRowID).Value = strResult
  32.         End If
  33.     Next
  34. End Sub
复制代码

评分

1

查看全部评分

回复

举报

蔡训博

TA的精华主题

TA的得分主题
 楼主| 发表于 2018-7-20 12:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
本帖最后由 蔡训博 于 2018-7-20 15:01 编辑
山菊花 发表于 2018-7-20 08:12
只作简单判断，供参考。


基本可以实现，就是里面还有两个问题，希望斑竹可以再帮忙改改，要改的都在附件里，谢谢
000051.rar (10.48 KB, 下载次数: 0)
回复

举报

蔡训博

TA的精华主题

TA的得分主题
 楼主| 发表于 2018-7-20 14:04 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
本帖最后由 蔡训博 于 2018-7-20 15:01 编辑
lsdongjh 发表于 2018-7-20 10:04


都实现了，就是里面还有一个小问题，希望可以再帮忙改改，要改的都在附件里，谢谢
000061.rar (10.44 KB, 下载次数: 3)
回复

举报

lsdongjh

TA的精华主题

TA的得分主题
发表于 2018-7-20 15:45 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
  1. Sub Test()
  2.     Dim shSource As Worksheet
  3.     Dim lngRows As Long, lngRowID As Long, lngR As Long
  4.     Dim arr As Variant
  5.     Dim strTemp As String, strSplit() As String
  6.     Dim strResult As String
  7.    
  8.     Set shSource = ActiveSheet 'Sheets("Sheet2") 改为ActiveSheet 就是当前表
  9.    
  10.     lngRows = shSource.Range("V" & Rows.Count).End(xlUp).Row '判断V列最后一行
  11.     If lngRows < 2 Then lngRows = 2
  12.    
  13.     arr = shSource.Range("A1:V" & lngRows) '整个区域是 A 列到 V 列
  14.    
  15.     For lngRowID = UBound(arr) To LBound(arr) Step -1
  16.         strTemp = arr(lngRowID, 22) ' 数组第二维对应列，如果从第一列开始， 那就是1。由于本数组从A列到V列，取V列就是 【22】
  17.         strSplit = Split(strTemp, "*")
  18.         strResult = ""
  19.         
  20.         If UBound(strSplit) > 0 Then
  21.             For lngR = 1 To UBound(strSplit)
  22.                 If IsNumeric(strSplit(lngR)) Then
  23.                     strResult = strResult & "---" & "第" & Val(strSplit(lngR)) & "件"
  24.                 Else
  25.                     strResult = strResult & "---" & "第" & Asc(strSplit(lngR)) - 64 & "面"
  26.                 End If
  27.             Next
  28.             strResult = Mid(strResult, 4)
  29.             
  30.             shSource.Rows(lngRowID).Insert Shift:=xlDown
  31.             shSource.Range("A" & lngRowID).Value = strResult
  32.             shSource.Range("A" & lngRowID).HorizontalAlignment = xlLeft '靠左对齐
  33.             shSource.Range("A" & lngRowID).Font.Bold = True '加粗
  34.             
  35.         End If
  36.     Next
  37. End Sub
复制代码

评分

1

查看全部评分

回复

举报

蔡训博

TA的精华主题

TA的得分主题
 楼主| 发表于 2018-7-21 04:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
本帖最后由 蔡训博 于 2018-7-21 15:41 编辑
lsdongjh 发表于 2018-7-20 15:45

谢谢，都好了，就是字母的大小写无法一样，大写字母是正确的，小写就不行，希望能再帮忙改一下，总之谢谢了
回复

举报

蔡训博

TA的精华主题

TA的得分主题
 楼主| 发表于 2018-7-22 07:12 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
顶起来。。。。。。
回复

举报

lsdongjh

TA的精华主题

TA的得分主题
发表于 2018-7-23 08:16 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
蔡训博 发表于 2018-7-21 04:31
谢谢，都好了，就是字母的大小写无法一样，大写字母是正确的，小写就不行，希望能再帮忙改一下，总之谢谢 ...

strResult = strResult & "---" & "第" & Asc(UCASE（strSplit(lngR))） - 64 & "面"
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-1-10 16:42 , Processed in 0.027638 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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