<div>
HI,<br />
<br />
pls try<br />
<br />
Option Base 1<br />

<pre><code id="code-20-40495999-1">Sub Macro()

myArr(1, 1) = &quot;Apple&quot;
myArr(1, 2) = &quot;Bannana&quot;
myArr(1, 3) = &quot;Pear&quot;
myArr(1, 4) = &quot;Orange&quot;
myArr(1, 5) = &quot;Cherry&quot;
For i = 1 To UBound(myArr, 2) - 1
  myArr(1, i) = myArr(1, i + 1)
Next i
ReDim Preserve myArr(1, UBound(myArr, 2) - 1)

End Sub</code></pre>
Regards
</div>


HI,

pls try

Option Base 1


Sub Macro()

myArr(1, 1) = "Apple"
myArr(1, 2) = "Bannana"
myArr(1, 3) = "Pear"
myArr(1, 4) = "Orange"
myArr(1, 5) = "Cherry"
For i = 1 To UBound(myArr, 2) - 1
  myArr(1, i) = myArr(1, i + 1)
Next i
ReDim Preserve myArr(1, UBound(myArr, 2) - 1)

End Sub

Regards

<div>
And why not simplify<br />
<br />

<pre><code id="code-20-40496037-1">myArr(1) = &quot;Apple&quot;
myArr(2) = &quot;Bannana&quot;
myArr(3) = &quot;Pear&quot;
myArr(4) = &quot;Orange&quot;
myArr(5) = &quot;Cherry&quot;
For i = 1 To UBound(myArr) - 1
  myArr(i) = myArr(i + 1)
Next i
ReDim Preserve myArr(UBound(myArr) - 1)</code></pre>
Regards
</div>


And why not simplify



myArr(1) = "Apple"
myArr(2) = "Bannana"
myArr(3) = "Pear"
myArr(4) = "Orange"
myArr(5) = "Cherry"
For i = 1 To UBound(myArr) - 1
  myArr(i) = myArr(i + 1)
Next i
ReDim Preserve myArr(UBound(myArr) - 1)

Regards

<div>
@Rgonzo1971<br />
&nbsp;It cannot be simplified because the array is populated from a range (MyArr = Sheets(1).Range(&quot;A1:G56&quot;).<wbr />Value) which always creates a 2d array.<br />
MyArray may contain several rows, your code won't work in such a case.
</div>


@Rgonzo1971
 It cannot be simplified because the array is populated from a range (MyArr = Sheets(1).Range("A1:G56").Value) which always creates a 2d array.
MyArray may contain several rows, your code won't work in such a case.

<div>
<div class="content wysiwyg-content">
Is it possible using VBA only (no copying to excel etc.) to remove the first column in both the the first and second dimension?<br />
<br />
<u><b>Sample array</b></u><br />
MyArr(1, 1) = &nbsp;&quot;Apple&quot;<br />
MyArr(1, 2) = &nbsp;&quot;Bannana&quot;<br />
MyArr(1, 3) = &nbsp;&quot;Pear&quot;<br />
MyArr(1, 4) = &nbsp;&quot;Orange&quot;<br />
MyArr(1, 5) = &nbsp;&quot;Cherry&quot;<br />
<br />
<b><u>Desired result</u></b><br />
MyArr(1, 1) = &nbsp;&quot;Bannana&quot;<br />
MyArr(1, 2) = &nbsp;&quot;Pear&quot;<br />
MyArr(1, 3) = &nbsp;&quot;Orange&quot;<br />
MyArr(1, 4) = &nbsp;&quot;Cherry&quot;
</div>
</div>


Is it possible using VBA only (no copying to excel etc.) to remove the first column in both the the first and second dimension?

Sample array
MyArr(1, 1) =  "Apple"
MyArr(1, 2) =  "Bannana"
MyArr(1, 3) =  "Pear"
MyArr(1, 4) =  "Orange"
MyArr(1, 5) =  "Cherry"

Desired result
MyArr(1, 1) =  "Bannana"
MyArr(1, 2) =  "Pear"
MyArr(1, 3) =  "Orange"
MyArr(1, 4) =  "Cherry"

Remove first column from a 2d array

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Most development for the Microsoft platform is done utilizing the technologies supported by the.NET framework. Other development is done using Visual Basic for Applications (VBA) for programs like Access, Excel, Word and Outlook, with PowerShell for scripting, or with SQL for large databases.