VBA小题三连问，多谢！！！

lczzzzzzz · 发表于 2019-1-20 20:22

在工作中遇到VBA小题三个，求解，多谢！！！

ww87725244 · 发表于 2019-1-20 20:36

非要VBA吗？就提供的数据而言：
1、分列即可完成
2、=IF(LEFT(F2,2)="短信","短信","通话")
3、&“秒”就可以解决了啊

一把小刀闯天下 · 发表于 2019-1-20 20:45

Option Explicit

Sub test()
  Dim arr, i, t
  arr = Range("a2:h" & Cells(Rows.Count, "d").End(xlUp).Row)
  For i = 1 To UBound(arr, 1)
t = Split(arr(i, 1)): arr(i, 2) = t(0): arr(i, 3) = t(1)
arr(i, 4) = Replace(arr(i, 4), Chr(9), vbNullString)
If arr(i, 4) = "主叫" Or arr(i, 4) = "被叫" Then
   arr(i, 5) = "通话"
ElseIf arr(i, 4) = "短信发送" Then
   arr(i, 5) = "短信"
Else
   arr(i, 5) = vbNullString
End If
arr(i, 8) = arr(i, 7) & "秒"
  Next
  [a2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

kuangben8 · 发表于 2019-1-20 20:54

供参考

11.zip (8.6 KB, 下载次数: 4)

lczzzzzzz · 发表于 2019-1-20 20:59

ww87725244 发表于 2019-1-20 20:36
非要VBA吗？就提供的数据而言：
1、分列即可完成
2、=IF(LEFT(F2,2)="短信","短信","通话")

因为我要处理多列，其中三列特殊点，想一次完成，而且有很多表，VBA能更简单点，但还是感谢您的帮忙！！！多谢了！

lczzzzzzz · 发表于 2019-1-20 21:00

一把小刀闯天下发表于 2019-1-20 20:45
Option Explicit

Sub test()

多谢了！我马上看看！！！

lczzzzzzz · 发表于 2019-1-20 21:01

kuangben8 发表于 2019-1-20 20:54
供参考

多谢参与，学习了！！！

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

[求助] VBA小题三连问，多谢！！！