वर्तमान में मेरे पास है

lastcol = Cells(14, Columns.Count).End(xlToLeft).Column
lastrow = Cells(Rows.Count, 11).End(xlUp).Row
Cells(lastrow, "L").Formula = "=sum(L15:L" & lastrow - 1 & ")"

यह एल में एल15 से दूसरी से आखिरी पंक्ति तक सब कुछ बताता है मैं इसे कैसे समायोजित कर सकता हूं कि यह अंतिम कॉलम तक फॉर्मूला को दाईं ओर स्वत: भरता है?

मैंने अपना कोड इस तरह समायोजित करने का प्रयास किया है लेकिन यह संकलित नहीं करता है

Cells((LR & "L"), Cells(LR, lastcol - 1)).Formula = "=sum(L15:L" & LR & ")"
0
Garett 22 जून 2018, 21:26

1 उत्तर

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

मैंने अंतिम पंक्ति को बदल दिया

 Range(Cells(lastrow, "L"), Cells(lastrow, lastcol)).Formula = "=sum(L15:L" & LR - 1 & ")"

यह सीमा को एल में अंतिम पंक्ति और अंतिम कॉलम में अंतिम पंक्ति में सेट करता है और उपरोक्त सूत्र जोड़ता है, आशा है कि यह वहां किसी की मदद करेगा!

0
Garett 25 जून 2018, 15:18