The company's monthly salary is saved in a sheet statement (as shown below: Table 1, the first behavior name, the working number, etc. "One line of the monthly salary of each person is saved, and the following functions are required: Problem: How to put everyone's salary Single records are taken out alone with independent Sheet, that is, 10 employees generate 10 Sheets.
Private submmandbutton1_click () for i = 2 to [a1] .end (xldown) .row sheets.add.name = cells (i, 4) Sheets (cells (i, 4) .value) .range ("A1: J1 ") = Range (" a1: j1 "). Value Sheets (Cells (i, 4) .value) .Range (" A2: J2 ") = Range (" A "& I & I & I: J" & i). VALUENEXTEND SUB