繁体   English   中英

按钮/语法错误Excel

[英]Button / Syntax Error Excel

我有一个文档,要在工作表1上创建一个名为Escelations的按钮,按下该按钮后,所有数据都将发送到工作表2,称为奥尔巴尼,我发现一些对我来说很有意义的代码,然后将其编辑为所需的代码,但是当我使用它并将其附加到按钮上时,出现语法错误。 这是说refTable出了点问题,这是我的代码:

Private Sub CommandButton1_Click()
Dim refTable As Variant, trans As Variant
refTable = Array("A=A15","B=E15","C=G15","D=I15","F=L15","E=AA15)
Dim Row As Long
Row = Worksheets("Albany").UsedRange.Rows.Count + 1
For Each trans In refTable
    Dim Dest As String, Field As String
    Dest = Trim(Left(trans, InStr(1, trans, "=") - 1)) & Row
    Field = Trim(Right(trans, Len(trans) - InStr(1, trans, "=")))
    Worksheets("Albany").Range(Dest).Value = Worksheets("Escelations").Range(Field).Value
Next
End Sub

我想提及的其他几件事我不知道是否会引起问题,但A15是ABCD15 / 16的合并cel,E15是合并的,G15是合并的,I15是合并的,L15是合并的,而A15是也可以合并,但它们要去的地方不是A,B,C,D,E,F。 这可能是个问题吗? 任何帮助,将不胜感激,谢谢。 这是我的第一个帖子,因此,如果我缺少任何信息,请告诉我。

您缺少结束语"

refTable = Array("A=A15","B=E15","C=G15","D=I15","F=L15","E=AA15")

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM