Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/firebase/6.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel范围到单元格值的转换_Excel_Vba - Fatal编程技术网

Excel范围到单元格值的转换

Excel范围到单元格值的转换,excel,vba,Excel,Vba,当我们将范围(A4)写入单元格(1,4)时,我应该如何将范围(A2:AB256)写入单元格格式 谢谢, Arup不能直接访问,但如果您的目标是通过索引访问一系列单元格,则可以使用带有两个单元格作为参数的range方法: Set myRange = mySheet.Range(mySheet.Cells(1, 2), mySheet.Cells(28, 256)) 或者,您可以从单元格地址解析列字母: Dim columnNumber As Integer Dim columnLetter As

当我们将范围(A4)写入单元格(1,4)时,我应该如何将范围(A2:AB256)写入单元格格式

谢谢,
Arup不能直接访问,但如果您的目标是通过索引访问一系列单元格,则可以使用带有两个单元格作为参数的range方法:

Set myRange = mySheet.Range(mySheet.Cells(1, 2), mySheet.Cells(28, 256))
或者,您可以从单元格地址解析列字母:

Dim columnNumber As Integer
Dim columnLetter As String

columnNumber = 5
columnLetter = Split(Cells(1, columnNumber).Address, "$")(1)

好的,但是有没有其他方法可以获得Excel cloumn Alaphabetic值?假设我在第5列下有一个值。所以,如果我知道列号,我能得到列的字母值吗?实际上是“i”?编辑了我的答案。这有点像黑客,但似乎有效。也许有更好的方法,我只是不记得了。我在电子表格中有多张表,但我想让它在我的第一张表上工作。因此,如果我这样写columnLetter=Split(表(1)。单元格(1,columnNumber)。地址,“$”)(1)——它对我有效吗?该方法只返回列字母,所以使用哪张表无关紧要。第五栏是每张纸上的字母E。但是,您可以参考特定的工作表。我认为语法是
ActiveWorkbook.Sheets(1)
我把代码写成objSheet3.Range(objSheet3.Cells(1,1),objSheet3.Cells(DataCount,ParentColmnCount)).Copy objSheet6.Range(objSheet6.Cells(1,1),objSheet6.Cells(DataCount,ParentColmnCount)).PasteSpecial objSheet6.Activate——但它只从工作表(3)复制第一列值到第一栏第(6)页的第一栏……你知道为什么没有粘贴全文吗?@fencliff你能帮我写下面的帖子吗--