VBA分割function

input格式= https://instagram.com/baby_blues_tattoos/或= https://instagram.com/baby_blues_tattoos

期望的最终usnamevariablesusname = followers/baby_blues_tattoos

当前variablesusname最终值= followers/

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

 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 

Answer 1

一旦build立str添加一个If语句

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