XECLE里面怎么让多列的数据分别除这些列中同一行的数据
答案:1 悬赏:60 手机版
解决时间 2021-11-21 18:08
- 提问者网友：箛茗
- 2021-11-20 22:30
XECLE里面怎么让多列的数据分别除这些列中同一行的数据
最佳答案
- 五星知识达人网友：夜风逐马
- 2021-11-21 00:02
用文本链接函数，复杂点的用vba，偶可以帮你写代码、但你要描述清楚呀 Option ExplicitSub paixu() On Error Resume Next Dim a, b As Range, i, j, l As Integer Set a = Sheets("Sheet1")UsedRange For Each b In a ' MsgBox Right(bValue, 1) & vbCrLf & Mid(bValue, Len(bValue) - 1, 1) If Right(bValue, 1) = Mid(bValue, Len(bValue) - 1, 1) Then Select Case Right(bValue, 1) Case "6" i = i + 1 Sheets("66")Range("a" & i)Value = bValue Case "8" j = j + 1 Sheets("88")Range("a" & j)Value = bValue Case "9" l = l + 1 Sheets("99")Range("a" & l)Value = bValue End Select End If Next b Set a = NothingEnd Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯