如何转置数组并比较值？

Question

 Dim c As Range, d As Range
 Dim Rstring As String

  With Worksheets("Sheet1")

  Set c = Range("aaa")

 End With

 a = c.Range("a1:a2").Value

Rstring = Join(WorksheetFunction.Transpose(a))

这很好，但不能一击

a=c.Range(c.Cells(0, 0), c.Cells(0, 1)).Value 

Rstring = Join(WorksheetFunction.Transpose(a))

我真的无法弄清楚。 有什么方法可以对移调使用一些灵活的范围值，以便可以将它们用于循环？ 我的目标是一次比较两个工作表的值乘以6个单元格。 拜托，帮我谢谢你。