Need excel expert

[kashif.special2005]

Hi,

I wanted the output like this.

*
* *
* * *
* * * *

Thanks & Regards,
Kashif.

 

[VoG]

Try like this

Sub Stars()
Dim i As Long
For i = 1 To 4
    Cells(i, 1).Resize(, i).Value = "*"
Next i
End Sub

 

[UniMord]

If you want all your asterisks in a single column, enter in row 1: =REPT("*", ROW()) and drag down.

If you want your asterisks in separate columns, enter in A1: =IF(COLUMN()<= ROW(), "*", "") and drag as far down and right as you like.

 

[UniMord]

Only if you need all your asterisks in a single cell, will you be forced to use VBA. To extend VoG's solution above, you can use the following function:

Function Stars(num&) As String
    Dim i&
 
    For i = 1 To num
        Stars = Stars & String(i, "*") & vbNewLine
    Next i
    Stars = Left(Stars, Len(Stars) - Len(vbNewLine))
End Function

Just make sure that you have wrap text on, otherwise you'll just get them all in a row.

 

[kashif.special2005]

Thanks for reply

I want to do this through procedure

I want to create prymide

like Capital A sign

kashif

 

[mikerickson]

To create a pyramid (all in one column), create a right triangle (like UniMord's formula) and then format the cells to align Center.

 

[kashif.special2005]

Hi,

Sorry to say, I am not able understand that.

 

[mikerickson]

If you have
A1 = "*"
A2 = "**"
A3 = "***"
A4 = "****"

it will look like a right triangle if A1:A4 are set to align Left (the default) but will look like an isosceles triangle if they are set to align center.