シート内の使用済みデータの最後の列に範囲を挿入する

Question

Excelで特定のシートに書き込もうとしている倍数の配列があります。

このシートには既にデータがあります。そこに使用されたデータの最後の列を見つける方法を示し、列のNUMBERを返す多くのコードスニペットがあります。しかし、文字列を文字列として必要とするrange関数を使用して、配列にデータを書き込もうとしています。これを行うより良い方法はありますか？

はここに、これまでに私のコードです：

Dim lCol As Integer 
     With GlobVars.Wksht 
      lCol = .Cells(1, .Columns.Count).End(Excel.XlDirection.xlToLeft).Column 
     End With 
     lCol += 1 
     GlobVars.Wksht.Range("I need something in these parentheses that will relate the lcol value and whatever row I want to put it in").Value = deltaxyarr 'copies the deltaxyarr as a range into the current active worksheet (data reduction) 

Answer 1

ワークシートに、配列を転送するためには、配列のサイズと同じ範囲の大きさを持っている必要があります。これを行うには、便利なResizeプロパティを使用できます。ここでは、物事がどのように動作するかです：私はCells.Addressメンバーを使用して作業いくつかのコードを取得することができたQharrする

Sub TransferArray() 

    Dim arr As Variant 

    'Copy range into array. 
    'This array is 1) always 2-dimensional and 2) its lower bound is always 1. 
    arr = Range("A1:F10") 

    'To transer array, the receiving range should accomodate array fully. 
    'To do it, we can use Resize property. 
    'This means, all we need is to choose top left cell of our receiving range. 
    'Here K1 cell is this very cell. 
    'The RowSize argument means how many rows we should expand down, 
    'and ColumnSize - how many column we should expand right. 
    'Apparently, these numbers are upper bound of 1-st dimension 
    'and upper bound of 2-nd dimension, respectively. 
    Range("K1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr 

End Sub 

Answer 2

感謝の。

  lCol = .Cells(1, .Columns.Count).End(Excel.XlDirection.xlToLeft).Column 

      lCol += 1 
      GlobVars.Wksht.Range(GlobVars.Wksht.Cells(1, lCol).Address).Resize(UBound(deltaxyarr, 1), UBound(deltaxyarr, 2)).Value = deltaxyarr