求助：怎样使表里数据变成表里图片的版式

prowl · 发表于 2023-3-7 19:54

怎样使表里的内容变成表里图片的版式

shiruiqiang · 发表于 2023-3-8 07:27

本帖最后由 shiruiqiang 于 2023-3-8 07:28 编辑

目前想到的就是正则式处理，大致能处理，结果如下，等更好的办法

taller · 发表于 2023-3-8 07:53

taller · 发表于 2023-3-8 07:53

taller · 发表于 2023-3-8 08:03

2楼图片没有边框，看不出合并单元格效果

liulang0808 · 发表于 2023-3-8 08:15

Sub 按钮1_Click()
arr = [a1].CurrentRegion
prr = Array("^\s[一-顒]+[^一-顒]*", "[一-顒]+?笔.*$")
With CreateObject("vbscript.regexp")
      For j = 2 To UBound(arr)
         .Pattern = prr(0)
         str1 = arr(j, 1)
         If .test(str1) Then
            arr(j, 2) = Replace(.Execute(str1)(0).Value, " ", "")
            str1 = .Replace(str1, "")
            .Pattern = prr(1)
            If .test(str1) Then
                  arr(j, 4) = .Execute(str1)(0).Value
                  arr(j, 3) = .Replace(str1, "")
            Else
                  arr(j, 3) = str1
            End If

         End If
      Next j
End With
[a1].CurrentRegion = arr
For j = UBound(arr) To 2 Step -1
      If Len(arr(j, 4)) = 0 Then
         Cells(j - 1, 4).Resize(2).Merge
      End If
Next j
End Sub

liulang0808 · 发表于 2023-3-8 08:17

附件内容供参考。。。。。
边框可以自己添加的

taller · 发表于 2023-3-8 08:21

liulang0808 发表于 2023-3-8 08:17
附件内容供参考。。。。。
边框可以自己添加的

刘版，14和15行结果和楼主要求不一样

期待有更简洁的正则，我写的有点儿啰嗦

liulang0808 · 发表于 2023-3-8 08:30

taller 发表于 2023-3-8 08:21
刘版，14和15行结果和楼主要求不一样

期待有更简洁的正则，我写的有点儿啰嗦

14行跟15行，真的没有注意

shiruiqiang · 发表于 2023-3-8 09:45

学习了楼上两位老师的代码，好好消化一下，谢谢

		自动登录	找回密码
密码			免费注册

求助：怎样使表里数据变成表里图片的版式

点评

评分