Write cell in Excel and merge 2 cells to write a single text

[Ray_Sha1 (Ray Sha)]

Hi all,

I’m using Write cell activity in UiPath where i want to merge 2 cells and write in it.

Eg.

I want to write “Hi” in cells A1 and A2.
I want to also bold it and add colour to the cell.

Is it possible?

Thanks in advance!

[raja.arslankhan (Raja Muhammad Arslan khan)]

Hi @Ray_Sha1
check out workflows
MergeCells.zip (24.9 KB)
Excel_AddRow_MergeAndColor.zip (12.6 KB)

[supermanPunch (Arpan)]

Hi @Ray_Sha1 ,

Could you check the below post, it should be similar to your requirement :

Merge and color Headers

Hi @kavya.s16 , Could you check the below workflow : Excel_AddRow_MergeAndColor.zip (12.6 KB) It uses Interop.Excel for Merging and colouring the rows/cells. We create the row for Points, assign the point value, add it at the beginning of the datatable and add an Empty row at the end. We Merge datatable after the add rows operation is done for the datatable. Next, we write the merged datatable to the excel sheet. We find the cell positions where points value will be present by using a Linq …

[Ray_Sha1 (Ray Sha)]

Hi,

Im looking for something as simple as this above-mentioned image.

Thanks

[Rahul_Unnikrishnan]

Hello @Ray_Sha1
You can use Format cells activity to add color to the cells and for merging you can use vb script.

UiPath - Set Cell Color, Alignment, Font Style | Format Cell Activity |UiPath Tutorial

How to Merge Cells with the same value in excel UiPath - RPA Learners

[Ray_Sha1 (Ray Sha)]

Is there a vb script for this?
Format cells works but I’ll looking for a script.

Thanks in advance

[Rahul_Unnikrishnan]

Ddi you checked the link which I shared?

[jack.chan]

@Ray_Sha1

1. paste below code in file e.g. vba.txt
2. in excel application scope, call invoke vba activity
   set codeFilePath = "vba.txt
   "EntryMethodName" = “FormatAndMerge”
   EntryMethodParameters = {“SheetName”, “textToWrite”, “cellsToMerge”}
   e.g. {"Sheet1", "hi", "A1:A2"}
   
   

Function FormatAndMerge(sheetName As String, textToWrite As String, cellRange As String)
'
    ActiveWorkbook.Sheets(sheetName).Activate
    Range(cellRange).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = textToWrite
    ActiveWorkbook.Save
End Function