String 分裂函数

输入格式=

https://instagram.com/baby_blues_tattoos/

---

or=

https://instagram.com/baby_blues_tattoos

变量

usname

=

追随者/baby\u blues\u纹身的预期最终值

变量的当前最终值

usname

=

followers/

我无法使用下面的代码从输入中提取用户名。需要帮助

Option Explicit
Sub InstaUs()

Dim wk, ws, wc As Worksheet
Set wk = Sheets(3)  'Art
Set ws = Sheets(2)  'Shop
Set wc = Sheets(10) 'Output

Dim str, i, j, l, FinalRowArt, FinalRowShop, FinalRowOut, fol
Dim Cet, usname

fol = "followers/"

FinalRowArt = wk.Range("M900000").End(xlUp).Row
FinalRowShop = ws.Range("L900000").End(xlUp).Row
FinalRowOut = wc.Range("A900000").End(xlUp).Row
j = 2
For i = 2 To FinalRowArt

If wk.Range("M" & i) <> "" Then
str = wk.Range("M" & i).Value
Cet = Split(str, "/")

usname = Cet(UBound(Cet))
usname = fol & usname
wc.Range("A" & j) = usname
j = j + 1

Else: End If
Next i

For i = 2 To FinalRowShop
If ws.Range("L" & i) <> "" Then
str = ws.Range("L" & i).Value
Cet = Split(str, "/")

usname = Cet(UBound(Cet))

usname = fol & usname
wc.Range("A" & j) = usname
j = j + 1

Else: End If
Next i
End Sub

选项显式
亚稳态（）
Dim wk、ws、wc As工作表
设置工作=图纸（3）“艺术”
设置ws=图纸（2）'车间
设置wc=板材（10）的输出
Dim str，i，j，l，FinalRowArt，FinalRowShop，FinalRowOut，fol
模糊Cet，usname
fol=“followers/”
最终行程=工作范围（“M900000”）。结束（xlUp）。行
FinalRowShop=ws.Range（“L900000”）.End（xlUp）.Row
FinalRowOut=wc.范围（“A900000”）.结束（xlUp）.行
j=2
对于i=2到最终箭头
如果工作范围（“M”&i）”，则
str=wk.Range（“M”&i）.Value
Cet=拆分（str，“/”）
usname=Cet（UBound（Cet））
usname=fol&usname
wc.Range（“A”&j）=usname
j=j+1
否则：如果
接下来我
对于i=2到最终Rowshop
如果ws.Range（“L”&i）”，则
str=ws.Range（“L”&i）.Value
Cet=拆分（str，“/”）
usname=Cet（UBound（Cet））
usname=fol&usname
wc.Range（“A”&j）=usname
j=j+1
否则：如果
接下来我
端接头

一旦建立

str

    If Right(str, 1) = "/" Then
        Cet = Split(Mid(str, 1, Len(str) - 1), "/")
    Else
        Cet = Split(str, "/")
    End If

---

https://instagram.com/baby_blues_tattoos/

split

对于最后一个元素，它是空的？所以做一个

if

语句来测试字符串是否以

/

结尾？如果是这样的话，请使用

拆分的倒数第二个元素

？@findwindow我尝试使用If-else语句检查最后一个元素是否为空，如果为空，我将最后一个元素的倒数第二个元素指定给usname，但仍然是相同的结果。您的代码中没有看到这一点吗？发帖？只要添加

if right（str，1）=“/”然后usname=Cet（UBound（Cet）-1）

etcStill有趣的操作尝试

if else

，但没有发帖所述代码XD@findwindow&斯科特谢谢你的帮助。