我一直在四处寻找,为什么这给了我一个Run-time error '1004' You can't paste this here because the Copy area and paste area aren't the same size. Select just one cell in the paste area or an area that's the same size, and try pasting again.
,但我找不到我找到的解决方案。
这里的问题只发生在这一行:ws.Columns(1).Copy Destination:=ws2.Columns(1).Rows(5)
粘贴内容应该只是垂直的几个单元格,即“B1:B5”。我不能做范围(“B1:B5”),因为我需要根据一些事情不断更新它。
关于我为什么会收到错误的任何想法?
Option Explicit
Sub chkPercent()
Dim wb As Workbook
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim rng As Range
Set wb = ActiveWorkbook
Set ws = wb.Worksheets(1)
Set rng = ws.Range("A1")
Dim iq_Array As Variant
Dim colNumb As Long
Dim rowNumb As Long
Application.ScreenUpdating = False
colNumb = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
rowNumb = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
Dim iQRef() As String
Dim iCol As Long
Dim pptText As String
ReDim iQRef(colNumb)
' capture IQ refs locally
For iCol = 2 To colNumb
iQRef(iCol) = ws.Cells(1, iCol).Value
Next iCol
Worksheets.Add After:=ws
Set ws2 = wb.Worksheets(2)
pptText = "iq_1,2,3,4"
'Identify if within text there is "iq_"
'If InStr(1, pptText, "iq_") <= 0 Then GoTo nextShpe
'set iq_Array as an array of the split iq's
iq_Array = Split(pptText, ",")
Dim hasIQs As Boolean
Dim checkStr As String
Dim pCol As Long
Dim checkOne
Dim arrayLoop As Long
checkOne = iq_Array(0)
hasIQs = Left(checkOne, 3) = "iq_"
If hasIQs Then
' paste inital column into temporary worksheet
ws.Columns(1).Copy Destination:=ws2.Columns(1)
End If
' loop for each iq_ in the array
For arrayLoop = LBound(iq_Array) To UBound(iq_Array)
' Take copy of potential ref and adjust to standard if required
checkStr = iq_Array(arrayLoop)
If hasIQs And Left(checkStr, 3) <> "iq_" Then checkStr = "iq_" & checkStr
Dim iQRefArray As Variant
Dim iQRefString As String
Dim checkRefStr As String
Dim nCol As Long
Dim doUntilCheck As String
Dim rowCount As Long
Dim copy1
Dim paste1
doUntilCheck = 99
' Look for existence of corresponding column in local copy array
pCol = 0
For iCol = 2 To colNumb
iQRefString = Left(iQRef(iCol), Len(iQRef(iCol)) - 1)
iQRefArray = Replace(iQRefString, "__", "_")
iQRefArray = Split(iQRefArray, "_")
checkRefStr = "iq_" & iQRefArray(1)
If checkStr = checkRefStr Then
pCol = iCol
Exit For
End If
Next iCol
If pCol > 0 Then
' Paste the corresponding column into the forming table
ws.Columns(pCol).Copy Destination:=ws2.Columns(2)
If iQRefArray(2) = "00" Then GoTo nxtArrayLoop
nCol = 0
rowCount = 1
Do Until doUntilCheck = "00"
Do Until doUntilCheck = "01"
nCol = nCol + 1
rowCount = rowCount + rowNumb
iQRefString = Left(iQRef(iCol + nCol), Len(iQRef(iCol + nCol)) - 1)
iQRefArray = Replace(iQRefString, "__", "_")
iQRefArray = Split(iQRefArray, "_")
doUntilCheck = iQRefArray(2)
If doUntilCheck = "00" Then GoTo nxtArrayLoop
If doUntilCheck = "01" Then GoTo nxtArrayLoop
ws.Columns(1).Copy Destination:=ws2.Columns(1).Rows(rowCount)
ws.Columns(pCol + nCol).Copy Destination:=ws2.Columns(2).Rows(rowCount)
Loop
Loop
End If
nxtArrayLoop:
Next arrayLoop
Application.ScreenUpdating = True
End Sub
答案 0 :(得分:1)
错误正如它所说的那样。复制和粘贴范围有两种不同的尺寸。
代码尝试将整个列(ws.Columns(1).Copy
)复制到定义的范围(Destination:=ws2.Columns(1).Rows(5)
- 我认为是一个单元格,但我从未使用过该类型之前的语法)。
如果您需要将复制范围定义为动态,请执行以下操作:
ws.Range(ws.Cells(ws.Rows.Count,1).End(Xlup),ws.Cells(1,1)).Copy Destination:=ws2.Cells(1,1)
这假设连续的单元格从ws
中的A列的第1行开始。