मैंने निम्नलिखित कोड पर काम किया है जो कॉलम I में मानदंडों के आधार पर 1 सेल की प्रतिलिपि बनाता है। मुझे पता था कि -6 कॉलम के लिए ऑफ़सेट कैसे सेट किया जाता है, समस्या तब आती है जब मुझे सेल ऑफ़सेट (0, -6) और ऑफ़सेट (0, -) की आवश्यकता होती है। 5) एक साथ ऑफसेट के बजाय एक सीमा के रूप में। क्या आप कृपया मदद कर सकते हैं? यह यह पंक्ति है: Range("I" & i).Offset(0, -6).Copy जहां मुझे केवल ऑफसेट (जो मुझे एक सेल देता है) के बजाय कर्नल सी और डी से कई प्रकार की कोशिकाओं की आवश्यकता होती है।

Sub xxx()

Dim WB As Workbook
Dim ZXC As Worksheet
Dim INF As Long, RSP As Long
Set WB = Workbooks("test.xlsm")
Set ZXC = WB.Sheets("MMLPLC")
Set VBN = WB.Sheets("VBN")
ZXC.Activate
INF = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To INF
If Range("I" & i).Value = "Further Information Needed" Then
    Range("I" & i).Offset(0, -6).Copy
    VBN.Range("C" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
Next i
VBN.Activate
Application.CutCopyMode = False
End Sub
1
Wheeliam 19 अक्टूबर 2018, 13:02

1 उत्तर

सबसे बढ़िया उत्तर

आप Resize विधि का उपयोग कर सकते हैं, जो वास्तव में बहुत उपयोगी है

Range("I" & i).Offset(0, -6).resize(,2).copy
2
SJR 19 अक्टूबर 2018, 10:37