How-tos - Sharing Tips and Tutorials for Microsoft Office
Here we share the tips and tricks we know about Microsoft Office. It's sharing all those things that we learn and experience along the way of developing Office add-ins and using Microsoft Office.
Latest Articles
- VLOOKUP function with some basic and advanced examples in Excel
- Compare two columns for matches and differences in Excel
- Excel drop down list: create, edit, remove and more advanced operations
- Find, highlight, filter, count, and delete duplicates in Excel
- Use formula or defined function to auto fill text based on the cell filled color in Excel
- Quickly create a positive negative bar chart in Excel
- How to split the total payment across months in Excel?
- Generate random number with the given specific length in Excel
- Compare two columns and add missing values in Excel
- How to merge two or more tables into one based on key columns?
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number list", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
new holland 3230