Extract from Excel two character after the second - in a cell.

DECLARE @Product TABLE
(
	ProductCode		VARCHAR(100)
);

INSERT INTO @Product
VALUES ('BBB-G19-BE-L'),
	('CCC-T01-BE'),
	('DR-17-OL'),
	('CR-47-OR-8'),
	('CRR-48-OR-4'),
	('CR-51-OR-2'),
	('XXA-25-BL'),
	('ZAA-26-BL'),
	('ZZG-27-CH-S'),
	('ZZG-31-EB-L');

SELECT ProductCode, S.Value AS ColourCode 
FROM @Product
OUTER APPLY dbo.SplitText(ProductCode, '-') AS S
WHERE S.[Index] = 3

Select allOpen in new window

ALTER FUNCTION [dbo].[SplitText]
(
	@Text		VARCHAR(MAX),
	@Delimiter	VARCHAR(10) = ','
)    
RETURNS @Item TABLE
(
	[Index]		INT IDENTITY(1,1) NOT NULL,
	Position	INT,       
	Value		VARCHAR(MAX)   
) 
AS 
BEGIN    
	SET @Text = RTRIM(@Text) 
	   
	DECLARE @Position INT, @i INT, @s VARCHAR(MAX)    
	SET @Position = 1     
	
	WHILE @Position < LEN(@Text)       
		AND CHARINDEX(SUBSTRING(@Text, @Position, 1), @Delimiter) > 0       
		SET @Position = @Position + 1   
		
	WHILE @Position <= LEN(@Text)    
	BEGIN       
		SET @i = PATINDEX('%[' + @Delimiter + ']%',          
			SUBSTRING(@Text, @Position, len(@Text) - @Position + 1))       
		IF @i > 0       
		BEGIN          
			SET @i = @i + @Position - 1          
			IF @i > @Position          
			BEGIN             
				-- @i now holds the earliest delimiter in the string            
				SET @s = SUBSTRING(@Text, @Position, @i - @Position)            
				INSERT INTO @Item             
				VALUES (@Position, @s)         
			END          
			SET @Position = @i + 1           
			WHILE @Position < LEN(@Text)             
				AND CHARINDEX(SUBSTRING(@Text, @Position, 1), @Delimiter) > 0             
				SET @Position = @Position + 1       
		END      
		ELSE       
		BEGIN         
			SET @s = SUBSTRING(@Text, @Position, LEN(@Text) - @Position + 1)         
			INSERT INTO @Item          
			VALUES (@Position, @s) SET @Position = LEN(@Text) + 1      
				
		END    
	END   

	RETURN 
END

Select allOpen in new window