Sub SheetLable()
Dim A, i, j, temp$
A = Sheets("目录").UsedRange
On Error Resume Next
For i = 3 To UBound(A)
temp = ""
For j = 4 To UBound(A, 2)
temp = temp & "/" & IIf(A(i, j) = "", "?", Trim(A(i, j)))
Next j
Sheets(Trim(A(i, 2))).Range("B1") = Mid(temp, 2)
Next i
End Sub
求助:对应工作表标签给工作表填写标题.rar
(22.99 KB, 下载次数: 11)
|