Bin bisher nicht auf eine einfachere Lösung gekommen, außer natürlich das Array zu durchlaufen und ein neues Array mit den Werte zu füllen.
Was einfacheres gibt es nicht in AutoIt.
Wenn du es dir in eine Funktion packst ist es aber doch auch nicht kompliziert:
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]#Region Array erstellen
Global $Array[150][4]
For $i = 0 To UBound($Array) - 1
$Array[$i][0] = $i
$Array[$i][1] = $i * 2
$Array[$i][2] = $i * 3
$Array[$i][3] = $i * 4
Next
#EndRegion Array erstellen
$a_Column = _ArrayGetRow($Array, 1)
If Not @error Then _ArrayDisplay($a_Column)
; extrahiert eine Spalte aus einem 2D-Array
Func _ArrayGetRow(ByRef $Array, Const $iColumn)
Local Const $N = UBound($Array)
Local $a_NewArray[$N]
If UBound($Array, 0) <> 2 Then Return SetError(1, 0, $a_NewArray) ; Kein 2D-Array
If ($iColumn >= UBound($Array, 2)) Or ($iColumn < 0) Then Return SetError(2, 0, $a_NewArray) ; Sinnfreie Angabe für iColumn
For $i = 0 To $N - 1
$a_NewArray[$i] = $Array[$i][$iColumn]
Next
Return $a_NewArray
EndFunc ;==>_ArrayGetRow
Wenn du unbedingt ohne sichtbare(!) Schleifen auskommen willst kannst du eigentlich nur so einen Blödsinn wie folgendes verwenden:
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]#Region Array erstellen
Global $Array[150][4]
For $i = 0 To UBound($Array) - 1
$Array[$i][0] = $i
$Array[$i][1] = $i * 2
$Array[$i][2] = $i * 3
$Array[$i][3] = $i * 4
Next
#EndRegion Array erstellen
_ArrayTranspose($Array)
_ArrayDelete($Array, 3)
_ArrayDelete($Array, 2)
_ArrayDelete($Array, 0)
_ArrayTranspose($Array)
_ArrayDisplay($Array)
Noch nichts übersehen 
Aber Melba23 vom engl. Forum hat gerade die Array UDF überarbeitet und die enthält dann eine solche Funktion.
