输入格式 = https://instagram.com/baby_blues_tattoos/
或 = https://instagram.com/baby_blues_tattoos
变量 usname
的预期最终值= followers/baby_blues_tattoos
变量 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
最佳答案
添加 If
建立后声明str
If Right(str, 1) = "/" Then
Cet = Split(Mid(str, 1, Len(str) - 1), "/")
Else
Cet = Split(str, "/")
End If
关于string - VBA 拆分功能,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33878853/