2024. március 28., csütörtök

Gyorskeresés

Excel Split Text munkalap függvény

Írta: | Kulcsszavak: Excel . VBA . Split

[ ÚJ BEJEGYZÉS ]

Az előző bejegyzéshez kapcsolódva szintén felmerült egy munkalapon használható (intelligens) SPLITTEXT függvény, ami array módban is felhasználható.

A témához nem közvetlenül kapcsolódó hozzászólások inkább a Visual Basic vagy Excel topicokba menjenek.

Használatra példák:
A1 => a,b,c,d
=SPLITTEXT(A1, ",", 0, -1)
Szétszedi az A1-et annyi részre, amennyire lehet, visszadja a lista első elemét: a

=SPLITTEXT(A1, ",", 2, 3)
Szétszedi az A1-et három részre, visszadja a lista utolsó (harmadik) elemét: c,d

=SPLITTEXT(A1, ",", -1, -1)
Szétszedi az A1-et annyi részre, amennyire lehet, visszadja, mint lista: {"a","b","c","d"}

modSplit.bas
Option Explicit

Public Function SPLITTEXT(Text, Separator, Index, Optional Limit As Integer = -1) As Variant
If Text = "" Or Separator = "" Or Index < -1 Or Limit < -1 Or Limit = 0 Or _
IsError(Text) Or IsError(Separator) Or IsError(Index) Or IsError(Limit) Then
SPLITTEXT = CVErr(xlErrValue)
Exit Function
End If
Dim arr
arr = Split(Expression:=Text, Delimiter:=Separator, Limit:=Limit)
If Index = -1 Then
SPLITTEXT = arr
ElseIf Index > UBound(arr) Then
SPLITTEXT = CVErr(xlErrValue)
Exit Function
Else
SPLITTEXT = arr(Index)
End If
End Function

Copyright © 2000-2024 PROHARDVER Informatikai Kft.