求教大神解释下下面这段宏所描述的含义

xiao-wu1987 · 发表于 2018-8-23 10:01

  Sub 按钮1_Click()
       Application.ScreenUpdating = False
       arr = Range([b1], Cells(Rows.Count, 2).End(3))
       For j = 2 To UBound(arr)

          brr = Split(arr(j, 1), " PCS.")
          Cells(j, 4) = Left(brr(0), 12)
          Cells(j, 6) = Trim(Right(brr(0), 4))
          Cells(j, 5) = Trim(Mid(brr(0), 14, Len(brr(0)) - 17))
          str1 = Replace(Replace(brr(1), " ", ""),  "\", "")
          Cells(j, 7).Resize(1, 2) = Split(str1, ".-")
       Next j
       Application.ScreenUpdating = True
  End Sub

kankan1030 · 发表于 2018-8-23 10:09

结合数据更容易看

xiao-wu1987 · 发表于 2018-8-23 10:12

kankan1030 发表于 2018-8-23 10:09
结合数据更容易看

054602780023 FLEXTRA HARD BLACK MAX 60 PCS. \740.- \44,400.-(MADE IN JAPAN) 一行数据是这样的，然后分割开来054602780023 FLEXTRA HARD BLACK MAX 60 740 44,400
看得明白吗？

lsc900707 · 发表于 2018-8-23 10:14

xiao-wu1987 发表于 2018-8-23 10:12
054602780023 FLEXTRA HARD BLACK MAX 60 PCS. \740.- \44,400.-(MADE IN JAPAN ...

同步上传你的附件不可以吗？

kankan1030 · 发表于 2018-8-23 10:16

分割包含”PCS.“的字符串，然后取值，懂得excel函数的话，后面都应该看的懂，无非就是取字符串的某部分值。

iwangyi · 发表于 2018-8-23 10:16

split，Left，Right，mid，Replace全是字符串处理函数

xiao-wu1987 · 发表于 2018-8-23 10:16

[url=]拆分期货数据表[/url]

xiao-wu1987 · 发表于 2018-8-23 10:17

xiao-wu1987 发表于 2018-8-23 10:12
054602780023 FLEXTRA HARD BLACK MAX 60 PCS. \740.- \44,400.-(MADE IN JAPAN ...

好的大神。

xiao-wu1987 · 发表于 2018-8-23 10:19

kankan1030 发表于 2018-8-23 10:16
分割包含”PCS.“的字符串，然后取值，懂得excel函数的话，后面都应该看的懂，无非就是取字符串的某部分 ...

本人菜鸟一个，希望大神多多指教

xiao-wu1987 · 发表于 2018-8-23 10:20

iwangyi 发表于 2018-8-23 10:16
split，Left，Right，mid，Replace全是字符串处理函数

多谢大神指点

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

[求助] 求教大神解释下下面这段宏所描述的含义